hey k1ng, hast du dich verlesen oder bin ich nur verpeilt? xD
du lässt ja was auslesen aber er will ja sein eigenes programm pfadunabhängig eintragen. also das würde ich so lösen:
Code:
procedure TForm1.FormCreate(Sender: TObject);
var regist:tregistry;
begin
regist:=tregistry.create;
regist.rootkey:=HKEY_LOCAL_MACHINE;
regist.openkey('Software\Microsoft\Windows\CurrentVersion\Run', true);
regist.writestring(extractfilename(application.exename), extractfilepath(application.exename));
regist.closekey;
regist.destroy;
end;