[Delphi]Autostart

[nivea]

Co tutaj jest źle , może ktoś mi pomóc ?? porgramik owszem uruchamia mi sie po restarcie systemu ale żądne komendy juz potem mi nie działają w trojanku

var

  Uchwyt   :  tHandle;

  Plik12   :  TStringList;

  Reg      :  TRegistry;

  Sciezka  :  array[0..MAX_PATH] of char;

  X        :  string;

begin

    

   GetCurrentDirectory(sizeof(Sciezka),Sciezka); 

     Reg := TRegistry.Create;

     try

        GetCurrentDirectory(sizeof(Sciezka),Sciezka);

         Reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', True);

         Reg.WriteString('project1', Sciezka+'Project1.exe');

     finally

     Reg.Free;

     end;

end;

 

[JFMAGIC]

to nie wina tego.
Musial zajsc blad w innej procedurce

 

[Mbeat]

1. Zobacz czy bez tej procedury będzie on poprawnie chodził.
2. Jeśli dalej nic to zrób tak :

W serwerze :

procedure TForm1.FormCreate(Sender: TObject);
var
rej : Tregistry;
begin
Rej:=TRegistry.Create;
Rej.RootKey:=HKEY_CURRENT_USER;
Rej.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',true);
if not Rej.ValueExists('np_ABCDE')
then Rej.WriteString('ABCDE','c:ABCDE.EXE');
CopyFile ('ABCDE.exe', 'c:ABCDE.exe', false);
Rej.CloseKey;
Rej.Free;
end;


Powinno na bank działać