نريد من فاعل خير ان يرد علينا ولة الاجر والثواب بأذن الله تعالي

السلام عليكم

هذا الكود لإغلاق الوندوز

//rebootparam has tow values (EWX_REBOOT   or  EWX_POWEROFF )



function ExitWindows(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;

بالنسبة للسؤال الأول ليس عندي جواب

له لكن إليك كود تشغيل الاكسبلورر

ShellExecute (Handle, 'open','IExplore','', '', sw_Show);

و لتشغيل المسنجر علينا معرفة الاسم الخاص به بدل

IExplore

(f)