mas yang pinter2 mumpung saya lagi OL saya posting banyak2 ya?? 1. bisa ga saya matiin kompi dari program saya?untuk windows XP...kalau harus make windows API gimana caranya?? 2.bisa ga program saya mencegah user untuk melakukan shutdown,logoff, or standby???kalau bisa gimana caranya?? thanks lagi ya mas2

Kalo mo shutdown,restart,logoff pake fungsi ini function ExitWindowsEx (uFlags : word ; dwReserved : DWORD): BOOL; parameter : EWX_RESTART : restart EWX_SHUTDOWN : shutdown dengan peringatan EWX_LOGOFF : logoff EWX_FORCE : shutdown tanpa peringatan Jadi jika ingin shutdown cukup tulis ExitWindowsEx (EWX_SHUTDOWN, 0); Untuk pertanyaan no 2, sori daku belum bisa jawab soalnya daku masih newbie.....banget :D Untuk no 2 biar yang senior2 jg jawab

sewaktu mau shutdown/logoff, windows mengirimkan WM_QUERYENDSESSION broadcast ke seluruh aplikasi yang sedang jalan. umumnya aplikasi segera bebenah untuk ikut mati bersama, lalu menyahutinya dengan mengirimkan jawaban: OK boss! kalau ada salah satu saja program yang menolak untuk ikutan tewas, windows pun segera berhenti berkoar, dan anteng lagi, seolah tidak pernah terjadi suatu apapun. yang agak beda, kalau di Win9X, windows mengumpulkan dulu jawaban dari semua koleganya itu, lantas mengirimkan WM_ENDSESSION yang artinya: mati deh luh sekarang gih!. sementara kalau di NT family, windows segera mengirimkan WM_ENDSESSION segera setelah dapet jawaban. jadi bisa kejadian sebuah aplikasi mati konyol padahal Windows tidak jadi mati (karena ada aplikasi yang menolak). begitulah kira-kira, saya tidak tahu bener apa salahnya karena belum pernah coba sendiri di Win9X, cuma terjemahan bebas (banget) dari... apa ya? MSDN kalo gak salah. btw, 0 berarti TIDAK, 1 (tepatnya selain 0) berarti IYA lamanya windows mau nunggu jawaban ditentukan oleh: HKCU\ControlPanel\Desktop\HungAppTimeout kalo lewat batas waktu, applikasi yang gak jawab juga akan tetap dibunuh. deklarasi: private procedure MatiYuuk(var m: TWMQueryEndSession); message WM_QUERYENDSESSION; implementasi: procedure tform1.MatiYuuk(var m: TWMQueryEndSession); begin m.result := integer(MessageDlg('Mau mati gak?', mtWarning, [mbYes, mbNo], 0) = mrYes); end; hth aa, http://www.google.com/search?q=aa+delphi

@grounders: Kalo mo shutdown,restart,logoff pake fungsi ini function ExitWindowsEx (uFlags : word ; dwReserved : DWORD): BOOL; parameter : EWX_RESTART : restart EWX_SHUTDOWN : shutdown dengan peringatan EWX_LOGOFF : logoff EWX_FORCE : shutdown tanpa peringatan Jadi jika ingin shutdown cukup tulis ExitWindowsEx (EWX_SHUTDOWN, 0); Untuk pertanyaan no 2, sori daku belum bisa jawab soalnya daku masih newbie.....banget :D Untuk no 2 biar yang senior2 jg jawab

saya coba kok hasilnya semua cuma jadi buat pc jd logoff aja ya bos?

untuk menjawab soal no 2 ... procedure EnableCTRLALTDEL(YesNo : boolean) ; const sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies'; begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(sRegPolicies+'\System',True) then begin case YesNo of False: begin WriteInteger('DisableTaskMgr',1) ; end; True: begin WriteInteger('DisableTaskMgr',0) ; end; end; end; CloseKey; if OpenKey(sRegPolicies+\Explorer',True) then begin case YesNo of False: begin WriteInteger('NoChangeStartMenu',1) ; WriteInteger('NoClose',1) ; WriteInteger('NoLogOff',1) ; end; True: begin WriteInteger('NoChangeStartMenu',0) ; WriteInteger('NoClose',0) ; WriteInteger('NoLogOff',0) ; end; end; end; CloseKey; finally Free; end; end;

untuk menjawab soal no 2 ... procedure EnableCTRLALTDEL(YesNo : boolean) ; const sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies'; begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(sRegPolicies+'\System',True) then begin case YesNo of False: begin WriteInteger('DisableTaskMgr',1) ; end; True: begin WriteInteger('DisableTaskMgr',0) ; end; end; end; CloseKey; if OpenKey(sRegPolicies+\Explorer',True) then begin case YesNo of False: begin WriteInteger('NoChangeStartMenu',1) ; WriteInteger('NoClose',1) ; WriteInteger('NoLogOff',1) ; end; True: begin WriteInteger('NoChangeStartMenu',0) ; WriteInteger('NoClose',0) ; WriteInteger('NoLogOff',0) ; end; end; end; CloseKey; finally Free; end; end;