Bilgisayarı kapatma

[çetinkaya]

S.A Arkadaşlar; ben butona basınca bilgisayarı tamamen kapatacak kod lazım. Sitede araduım ama onlar genelde saat ayarı ile yapılanlar var timer ile yapılan projeler var acaba elinde böyle bir kod olan var mı. ??

[conari]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
   tkHandle : THandle;
   BufferLun,ret : DWORD;
   tk,tkPrevious : TTokenPrivileges;
   LID : TLargeInteger;
   LUID : TLuIDAndAttributes;
   versione : TOSVersionInfo;
begin
   BufferLun := 1024;
   ret := 0;
   versione.dwOSVersionInfoSize := sizeof(versione);
   GetVersionEx(versione);
   if versione.dwPlatformId = VER_PLATFORM_WIN32_NT then
         begin
         tkHandle := GetCurrentProcess;
         OpenProcessToken(tkHandle,TOKEN_ALL_ACCESS,tkHandle);
         LookupPrivilegeValue(PChar(''),PChar('SeShutDownPrivilege'),LID);
         LUID.Luid := LID;
         LUID.Attributes := SE_PRIVILEGE_ENABLED;
         tk.PrivilegeCount := 1;
         tk.Privileges[0] := LUID;
         AdjustTokenPrivileges(tkHandle,False,tk,BufferLun,tkPrevious,ret);
      end;
      ExitWindowsEx(EWX_SHUTDOWN or EWX_PowerOff,0);
end;

[çetinkaya]

Tşk ederim sağol oldu kapattı bilgisayarı...

[godbaba]

Ben şunu kullanıyorum

Kod: Tümünü seç

winexec('shutdown -s -t 00',0);

[conari]

Ozaman winexec yerine shellapi yi kullansan dahi iyi olur.