| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #3422 [Delphi] (จาก IP: 115.67.197.159)
ใครรู้วิธี เอาคำสั่งวินโดวร์ มารันมาผ่าน Delphiครับ
ผมต้องการ สั่งปิดเครื่องผ่าน delphi ครับ
เพราะต้องให้ปิดเครื่องทุกวัน 18.00 อัตโนมัติครับ
ขอบคุณครับ
|
| จากคุณ
:
A / prajak78@gmail.com [2013-08-17 07:40:31]
|
|
ความคิดเห็น #28849 (จาก IP: 101.108.26.159)
Parameters:
EWX_SHUTDOWN : shut down windows(Power off)
EWX_REBOOT : reboot windows
EWX_POWEROFF : Standby mode
EWX_LOGOFF : Log Off
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_SHUTDOWN,0);
end;
or use rundll32.exe
uses ShellAPI;
function ExecuteFile(const FileName, Params,DefaultDir : string;
ShowCmd: Integer) : THandle;
var
zFileName, zParams, zDir : array[0..79] of Char;
begin
Result :=ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName),StrPCopy(zParams,Params), StrPCopy(zDir, DefaultDir), ShowCmd);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ExecuteFile('Rundll.exe','user,exitwindows','',SW_SHOW);
end; |
| จากคุณ
:
ลองดูไม่เคยทำ [2013-08-17 12:50:27]
|
|
ความคิดเห็น #28914 (จาก IP: 110.171.210.22)
| ใช้ System.timer ก็พอแล้วครับ ในการจับเวลา |
| จากคุณ
:
kruman / kruman.star@gmail.com [2013-09-22 14:21:25]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
