Delphi – Windowsun kapanma anını yakalayan kod

C

CaLLaHaN

Uzman üye
6 Kas 2010
1,935
0
117
ƒєηєявαнçєCυмнυяiyeti
type
T_Form1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
Kapansin:Boolean;
procedure WMEndSession(var Msg : TWMEndSession); message WM_ENDSESSION;
public
end;
var
_Form1: T_Form1;
implementation
{$R *.dfm}



procedure T_Form1.FormCreate(Sender: TObject);
begin
Kapansin:=True;
end;
procedure T_Form1.WMEndSession(var Msg : TWMEndSession);
begin
Kapansin:=MessageDlg('Windows kapansınmı ?', mtConfirmation, [mbYes,mbNo], 0) <> mrNo;
inherited;
end;
procedure T_Form1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=Kapansin;
Kapansin:=True;
end;
​
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.