كود لإيقاف تشغيل الكومبيوتر

السلام عليكم

اخي العزيز ...ريد ..انا معكم على النت حالياً ..وهو متوفر لدي

مو بس ..اطفاء الحاسب ...وأنما LOG OFF..والريستار......

ان شاء الله ..في وقت قريب ..أرفقه لكم ....في منتدنا ....

أرجــــــــــو ة المعذرة

أخـــــــــوكم:cool:

شــكرا لك كثيراً . . . أخي FOX_DELPHI(f)(f)

أنا بانتظارك . .(clock)(clock)(clock)

وكل شي زيادة منك حـلو .. .

أنت كريم ونحن بـنسـتاهل

أخوك :)

عزيزي RED STAR

ان كود اطفاء الكمبيوتر هو تابع ال API التالي :

exitwindowsex(ewx_shutdown,0);

ومن أجل إعادة الإقلاع :

exitwindowsex(ewx_reboot,0);

و مئة السلامة

شــكراً أخي waelolabi

ســوف أجربها (f):b1

:cool:

السلام عليكم .....

أسف للتأخير ولك ما طلبت

unit MainFrm;

interface

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

type
  TMainForm = class(TForm)
    btnExit: TButton;
    rgExitOptions: TRadioGroup;
    procedure btnExitClick(Sender: TObject);
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.btnExitClick(Sender: TObject);
begin
  case rgExitOptions.ItemIndex of
    0: Win32Check(ExitWindows(0, 0)); // Exit and log on as a
                                      // different user.
    1: Win32Check(ExitWindowsEx(EWX_REBOOT, 0));  // Exit/Reboot
    2: Win32Check(ExitWindowsEx(EWX_SHUTDOWN, 0));// Exit to Power Off
    // Exit/Log off/Log on as different user
    3: Win32Check(ExitWindowsEx(EWX_LOGOFF, 0));
  end;
end;
end.

أخــــــــوكم

أخي ريد ستار

أرجو منك مراجعة الدروس

لاني كنت قد وضعت الكود بالتفصيل قبل عدة ايام

http://www.arabteam2000.com/vb/showthread....goto=nextnewest

أخوك رضا(f)

شــكراً أخي FOX_DELPHI كثيرا على الكــود (f) (f) (f)

ولك أيضــاً أخي reda

و بالنسبة للأخ waelolabi فانه لايقوم بأي عمل . .

لم ينجح معي . . . ! ! !

أخــوكم ريد ستار

اخي رضــــــــــــــــــــــــا.......

الرابط ...لموضوع ..اخر ..................:(:(