SHUTDOWN ile Bilgisayarı kapatma

[dogan]

Merhaba, SHUTDOWN ile Bilgisayarı kapatınca açık olan programlar nedeniye bilgisayar katılamıyor xp, vista, win7 ve win8 olmak üzere direk olarak kapanmasını nasıl sağlarım...

Kod: Tümünü seç

ExitWindowsEx(EWX_FORCE and EWX_SHUTDOWN, 0);

[thelvaci]

and yerine or kullanmalısınız.

[dogan]

or yapınca sadece programı kapatıyor and yapında açık olan programlar ve oturum kapatıyor bilgisayar açık kalıyor...

Kod: Tümünü seç

       ExitWindowsEx(EWX_FORCE and EWX_SHUTDOWN, 0);

[sabanakman]

Sabitlerin sayısal değerlerine bakınca and operatörünün pek bir işlevi olmamaktadır.

EWX_LOGOFF = 0;
EWX_SHUTDOWN = 1;
EWX_REBOOT = 2;
EWX_FORCE = 4;
EWX_POWEROFF = 8;
EWX_FORCEIFHUNG = $10;

değerlerine göre EWX_FORCE and EWX_SHUTDOWN işlem sonucu 4 and 1 yani 0 (EWX_LOGOFF) çıkacaktır. Bir de aşağıdaki şekilde deneyin isterseniz.

Kod: Tümünü seç

ExitWindowsEx(EWX_SHUTDOWN or EWX_PowerOff,0);

Yine olmazsa bazı ekler yapmanız gerekecek sanırım.
http://delphi.about.com/cs/adptips2003/ ... 0503_5.htm

Kod: Tümünü seç

function WindowsExit(RebootParam: Longword): 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[0].Luid) ;
       TTokenPvg.PrivilegeCount := 1;
       TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
       cbtpPrevious := SizeOf(rTTokenPvg) ;
       pcbtpPreviousRequired := 0;
       if tpResult then
         Windows.AdjustTokenPrivileges(TTokenHd,
                                       False,
                                       TTokenPvg,
                                       cbtpPrevious,
                                       rTTokenPvg,
                                       pcbtpPreviousRequired) ;
     end;
   end;
   Result := ExitWindowsEx(RebootParam, 0) ;
end;

kullanımı ise

//Shutdown
WindowsExit(EWX_POWEROFF or EWX_FORCE) ;
veya
//Reboot Windows
WindowsExit(EWX_REBOOT or EWX_FORCE) ;

şeklinde olacaktır.

[reyhan]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_FORCE and EWX_SHUTDOWN,0);
  //EWX_SHUTDOWN kapatmak için
  //EWX_REBOOT for yeniden başlat
  //EWX_LOGOFF for logoff
end;