Windows Acilisi Sirasinda Programin Calismasi

Oct 11,2008 00:00 by RubeNiS
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
AppExe :string;
begin
if CheckBox1.Checked=true then begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true) then
AppExe:=#34+Application.Exename+#34;
WriteString('hisarcafe', AppExe);
finally
end;
end;
//DeleteValue('metin'); //=>Programinizi Registry den Silmek icin
end;