Evet Kodumuz Basit Ama Guclu ise Diyecek Tek Soz Denemektir..Sizde Deneyin ve Bakın Bence Hoşunuza Gidecek.Bilmeyenler icin İyi Şeyler var ...
Orneğin Mesaj Penceresi Kullanımı "Inputquery" Kullanımı Ne Dimişler. Bilmemek Değil Oğrenmemek Ayıp...

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private

public

end;
var
Form1: TForm1;
implementation

procedure TForm1.Button1Click(Sender: TObject);
var
i:dword;
c:word;
a,s:string;
begin
a:=Inputquery('DikkaT','Şİfreyi Girin LutFen',s);
IF s='tlmusti' then
begin
c:=application.MessageBox('Bilgisayarınız Kapatılsınmı! ?','Uyarı', MB_YESNO+MB_ICONQUESTION);
IF c=IDyes then
begin
ExitWindowsEx(EWX_SHUTDOWN,i);
end;
end;
end;
end.


İnsanların Efendisi Olmak İcin..."Bilginin Kolesi Olmak Gerekir."
__________________