دخول

صعب الوصايف · 12-10-2011, 01:27 AM

السلام عليكم ورحمة الله وبركاته

كيف أعمل مشروع بشاشة كامله على الشاشة ,, لايسطيع العيمل ان يخرج ..؟

King SofT · 13-10-2011, 04:21 PM

وعليكم السلام اخي

كود :
procedure Tform1.f4(var M:Tmsg; var H:boolean);
begin
if M.wParam=VK_F4 then
H:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
var HTaskbar: HWND;
begin
//--------------لاخفاء شريط المهام----------
HTaskBar := FindWindow('Shell_TrayWnd', nil);
    EnableWindow(HTaskBar, False);
    ShowWindow(HTaskbar, SW_HIDE);
//------------لتعطيل  زر (alt f4)-----------
Application.OnMessage:=f4;

BorderStyle:=bsNone;

end;

الموضوع في المرفقات

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة