Topic: автозапуск
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
reg : TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_CURRENT_USER;
reg.OpenKey('SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Run', True);
reg.WriteString('programm' , ExtractFilePath(Application.ExeName));
reg.CloseKey;
reg.Free;
end;
не получается ((