+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أعمل مشروع بشاشة كامله على الشاشة (/showthread.php?tid=3498)
كيف أعمل مشروع بشاشة كامله على الشاشة - صعب الوصايف - 12-10-2011
السلام عليكم ورحمة الله وبركاته
كيف أعمل مشروع بشاشة كامله على الشاشة ,, لايسطيع العيمل ان يخرج ..؟
كيف أعمل مشروع بشاشة كامله على الشاشة - King SofT - 13-10-2011
وعليكم السلام اخي
كود :
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;الموضوع في المرفقات