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;الموضوع في المرفقات
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان