windows oturumunu delphi ile kapatın

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Timer1: TTimer;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
function Uptime: string;
var
count,
days,
min,
hours,
seconds : longint;
begin
Count := GetTickCount();
Count := Count div 1000;
Days := Count div (24 * 3600);
if Days > 0 then
Count := Count - (24 * 3600 * Days);
Hours := Count div 3600;
if Hours > 0 then
Count := Count - (3600 * Hours);
Min := Count div 60;
Seconds := Count mod 60;
Result := IntToStr(Days)+' GÜN '+IntToStr(Hours)+
' SAAT '+IntToStr(Min)+' DAKİKA '+
IntToStr(seconds) +' SANİYE '+'BİLGİSAYARINIZ AÇIK OLARAK GÖRÜNÜYOR';
end;
begin
Label1.Caption:=Uptime;
end;
procedure TForm1.Button1Click(Sender: TObject);

var c:boolean;
x:integer;
begin
x:=Application.MessageBox('WİNDOWS OTURUMU KAPATACAKTIR ONAYLIYORMUSUNUZ..?','ReStart',MB_YESNO);
if (x=IDYES) then
begin
c:=ExitWindowsEx(EWX_REBOOT,2);
if (c=false) then
ShowMessage('KAPATILMA İPTAL EDİLMEKTEDİR..');
end;


end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label3.Caption:= timetostr(time);
end;

end.