Ersun
03-18-2008, 06:37 PM
Windows u kapatmakWindows bir takım işlemleri apileri kullanarak yaparak işte size delphide windows u kapatma apisi
Formunuza üzerine bir tane buton ekleyin ve bu butonun kod kısmına şunları yazın
procedure TForm1.KapatClick(Sender: TObject);
Var
"Bu kısımda secim adında bir değişken tanımlıyoruz değişkenimiz integer olmaldır çünkü döndüreceği değer numeric bir değerdir"
secim : integer;
begin
"Bu kısımda yaptıgımız işlem kullanıcıya bir uyarı kutusu cıkarmaktır bunun içinde messagebox bileşenini kullandık "
secim:=Application.MessageBox('Oturum kapatılsınmı?', 'oturum kapatma',mb_YesNo+mb_Defbutton1);
"Seçimimizin evet anlamına gelmesi bize 6 değerini döndüreceği için kapatma işlemine if sartıyla 6 ya eşitliğini kontrol ediyoruz "
if secim = 6 then
ExitWindowsEx(EWX_LOGOFF,0);
end;
"Bu kadar basit Delphide api leri kullanmak çok basittir sadece hangi apinin ne işe yaradığını bilmeniz yeterlidir"
Formunuza üzerine bir tane buton ekleyin ve bu butonun kod kısmına şunları yazın
procedure TForm1.KapatClick(Sender: TObject);
Var
"Bu kısımda secim adında bir değişken tanımlıyoruz değişkenimiz integer olmaldır çünkü döndüreceği değer numeric bir değerdir"
secim : integer;
begin
"Bu kısımda yaptıgımız işlem kullanıcıya bir uyarı kutusu cıkarmaktır bunun içinde messagebox bileşenini kullandık "
secim:=Application.MessageBox('Oturum kapatılsınmı?', 'oturum kapatma',mb_YesNo+mb_Defbutton1);
"Seçimimizin evet anlamına gelmesi bize 6 değerini döndüreceği için kapatma işlemine if sartıyla 6 ya eşitliğini kontrol ediyoruz "
if secim = 6 then
ExitWindowsEx(EWX_LOGOFF,0);
end;
"Bu kadar basit Delphide api leri kullanmak çok basittir sadece hangi apinin ne işe yaradığını bilmeniz yeterlidir"