Windows Acilisi Sirasinda Programin Calismasi

Tüm saatler GMT +3 Saat


Full versiyon Görüntüle

YAZAR: miramax
Tarih: 8/1/2009, 00:00



Windows Acilisi Sirasinda Programin Calismasi

Kod:
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;



-> Delphi/Pascal -> PDA Görünüm - Ana Sayfa
Tüm saatler GMT +3 Saat


Full versiyon Görüntüle



Phpbb PDA Görünüm
Muhendisiz.net Tarafindan Yazilmistir.
Writed by muhendisiz.net © 2004 - 2007 All rights reserved.