Bilgisayarı istediğiniz bir saat te kapatın.. program kapatma butonuna bastığınızda gizli hale gelip arka planda çalışacaktır.. program ikonu saatin yanında görünür ona tıklayarak tekrar programı acabilirsiniz.. programı sonlandırmak için baslata bastıktan sonra ESC ye basarsanız kapanır.. Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, shellapi; const WM_NOTIFYICON = WM_USER+333; type TForm1 = class GroupBox2: TGroupBox; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Timer1: TTimer; Timer2: TTimer; Edit3: TEdit; Label4: TLabel; Button1: TButton; Button2: TButton; GroupBox1: TGroupBox; Label5: TLabel; Timer3: TTimer; procedure Timer2Timer ; procedure Timer1Timer ; procedure FormCreate ; procedure Button1Click ; procedure Button2Click ; procedure Timer3Timer ; procedure FormKeyPress ; procedure FormClose ; private tnid: TNotifyIconData; HMainIcon: HICON; procedure CMClickIcon ; message WM_NOTIFYICON; public end; var Form1: TForm1; implementation function WindowsExit : Boolean; var TTokenHd: THandle; TTokenPvg: TTokenPrivileges; cbtpPrevious: DWORD; rTTokenPvg: TTokenPrivileges; pcbtpPreviousRequired: DWORD; tpResult: Boolean; const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin tpResult := OpenProcessToken(GetCurrentProcess , TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TTokenHd) ; if tpResult then begin tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME, TTokenPvg. Privileges . Luid) ; TTokenPvg. PrivilegeCount := 1; TTokenPvg. Privileges . Attributes := SE_PRIVILEGE_ENABLED; cbtpPrevious := SizeOf ; pcbtpPreviousRequired := 0; if tpResult then Windows. AdjustTokenPrivileges ; end; end; Result := ExitWindowsEx(RebootParam, 0) ; end; procedure TForm1. Timer2Timer ; var saat:string; begin saat:=timetostr ; GroupBox2. caption:=saat; end; procedure TForm1. Timer1Timer ; var saat, dakika, saniye, salise:word; d:ttime; begin saat:=strtoint(edit1. text); dakika:=strtoint(edit2. Text); saniye:=strtoint(edit3. Text); salise:=0; d:=encodetime ; if d=time then WindowsExit ; end; procedure TForm1. CMClickIcon ; begin case msg. lparam of WM_LBUTTONDBLCLK : Show; end; end; procedure TForm1. FormCreate ; begin ShowMessage ; HMainIcon := LoadIcon ; Shell_NotifyIcon ; tnid. cbSize := sizeof ; tnid. Wnd := handle; tnid. uID := 123; tnid. uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; tnid. uCallbackMessage := WM_NOTIFYICON; tnid. hIcon := HMainIcon; tnid. szTip := 'POP3 Server'; Shell_NotifyIcon ; end; procedure TForm1. Button1Click ; begin button1. Enabled:=false; button2. Enabled:=true; timer1. Enabled:=true; end; procedure TForm1. Button2Click ; begin button2. Enabled:=false; button1. Enabled:=true; timer1. Enabled:=false; end; procedure TForm1. Timer3Timer ; var c:TColor; begin c:=Label5. Color; Label5. Color:=Label5. Font. Color; Label5. Font. Color:=c; End; procedure TForm1. FormKeyPress ; begin if Key =

then halt; end; procedure TForm1. FormClose ; begin Action := caNone; Hide; end; end.

tnid. cbSize := sizeof ; tnid. Wnd := handle; tnid. uID := 123; tnid. uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; tnid. uCallbackMessage := WM_NOTIFYICON; tnid. hIcon := HMainIcon; tnid. szTip := 'POP3 Server'; bu ne pop3 server le pc kapatmanın ne alakasının oldugunu cozemedım You must log in or register to reply here. Forum Programlama Delphi Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/bilgisayari-istenilen-saatte-kapatma.270854\/", "headline": "Bilgisayarı İstenilen Saatte Kapatma", "articleBody": "Bilgisayarı istediğiniz bir saat te kapatın.. program kapatma butonuna bastığınızda gizli hale gelip arka planda çalışacaktır.. program ikonu saatin yanında görünür ona tıklayarak tekrar programı acabilirsiniz.. programı sonlandırmak için baslata bastıktan sonra ESC ye basarsanız kapanır..\r\n\r\nunit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\n Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\n Dialogs, StdCtrls, ExtCtrls, shellapi;\r\n\r\nconst\r\n WM_NOTIFYICON = WM_USER+333;\r\ntype\r\n TForm1 = class \r\n GroupBox2: TGroupBox;\r\n Edit1: TEdit;\r\n Edit2: TEdit;\r\n Label1: TLabel;\r\n Label2: TLabel;\r\n Timer1: TTimer;\r\n Timer2: TTimer;\r\n Edit3: TEdit;\r\n Label4: TLabel;\r\n Button1: TButton;\r\n Button2: TButton;\r\n GroupBox1: TGroupBox;\r\n Label5: TLabel;\r\n Timer3: TTimer;\r\n procedure Timer2Timer ;\r\n procedure Timer1Timer ;\r\n procedure FormCreate ;\r\n procedure Button1Click ;\r\n procedure Button2Click ;\r\n procedure Timer3Timer ;\r\n procedure FormKeyPress ;\r\n procedure FormClose ;\r\n \r\n\r\n private\r\n \r\n tnid: TNotifyIconData;\r\n HMainIcon: HICON;\r\n procedure CMClickIcon ; message WM_NOTIFYICON;\r\n\r\n public\r\n \r\n end;\r\n\r\nvar\r\n Form1: TForm1;\r\n\r\nimplementation\r\n\r\n \r\n\r\nfunction WindowsExit : Boolean;\r\nvar\r\n TTokenHd: THandle;\r\n TTokenPvg: TTokenPrivileges;\r\n cbtpPrevious: DWORD;\r\n rTTokenPvg: TTokenPrivileges;\r\n pcbtpPreviousRequired: DWORD;\r\n tpResult: Boolean;\r\nconst\r\n SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';\r\nbegin\r\n if Win32Platform = VER_PLATFORM_WIN32_NT then\r\n begin\r\n tpResult := OpenProcessToken(GetCurrentProcess ,\r\n TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,\r\n TTokenHd) ;\r\n if tpResult then\r\n begin\r\n tpResult := LookupPrivilegeValue(nil,\r\n SE_SHUTDOWN_NAME,\r\n TTokenPvg. Privileges . Luid) ;\r\n TTokenPvg. PrivilegeCount := 1;\r\n TTokenPvg. Privileges . Attributes := SE_PRIVILEGE_ENABLED;\r\n cbtpPrevious := SizeOf ;\r\n pcbtpPreviousRequired := 0;\r\n if tpResult then\r\n Windows. AdjustTokenPrivileges ;\r\n end;\r\n end;\r\n Result := ExitWindowsEx(RebootParam, 0) ;\r\nend;\r\nprocedure TForm1. Timer2Timer ;\r\nvar\r\nsaat:string;\r\nbegin\r\nsaat:=timetostr ;\r\nGroupBox2. caption:=saat;\r\nend;\r\n\r\nprocedure TForm1. Timer1Timer ;\r\n\r\nvar\r\nsaat, dakika, saniye, salise:word;\r\nd:ttime;\r\nbegin\r\nsaat:=strtoint(edit1. text);\r\ndakika:=strtoint(edit2. Text);\r\nsaniye:=strtoint(edit3. Text);\r\nsalise:=0;\r\nd:=encodetime ;\r\nif d=time then\r\n WindowsExit ;\r\nend;\r\nprocedure TForm1. CMClickIcon ;\r\nbegin\r\n case msg. lparam of\r\n WM_LBUTTONDBLCLK : Show;\r\n end;\r\nend;\r\nprocedure TForm1. FormCreate ;\r\n\r\nbegin\r\nShowMessage ;\r\nHMainIcon := LoadIcon ;\r\n\r\n Shell_NotifyIcon ;\r\n\r\n tnid. cbSize := sizeof ;\r\n tnid. Wnd := handle;\r\n tnid. uID := 123;\r\n tnid. uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;\r\n tnid. uCallbackMessage := WM_NOTIFYICON;\r\n tnid. hIcon := HMainIcon;\r\n tnid. szTip := 'POP3 Server';\r\n\r\n Shell_NotifyIcon ;\r\nend;\r\n\r\n\r\nprocedure TForm1. Button1Click ;\r\nbegin\r\nbutton1. Enabled:=false;\r\nbutton2. Enabled:=true;\r\ntimer1. Enabled:=true;\r\nend;\r\n\r\n\r\n\r\n\r\nprocedure TForm1. Button2Click ;\r\nbegin\r\nbutton2. Enabled:=false;\r\nbutton1. Enabled:=true;\r\ntimer1. Enabled:=false;\r\nend;\r\n\r\n\r\n\r\n\r\nprocedure TForm1. Timer3Timer ;\r\nvar\r\nc:TColor;\r\nbegin\r\nc:=Label5. Color;\r\nLabel5. Color:=Label5. Font. Color;\r\nLabel5. Font. Color:=c;\r\nEnd;\r\n\r\nprocedure TForm1. FormKeyPress ;\r\nbegin\r\nif Key =