+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تنشيط برنامج عبر لوحة المفاتيح (/showthread.php?tid=3552)
تنشيط برنامج عبر لوحة المفاتيح - محمد الدرة - 30-10-2011
السلام عليكم ورحمة الله وبركاته
عملت برنامج وقمت باخفائه من ادارة المهام
السؤال كيف استطيع ان اجعله يظهر عند ضغط مفاتيح معينه من الكيبرود مثل برنامج الديب فريز
للعلم انه لايظهر بجوار ايقونة الساعة
تنشيط برنامج عبر لوحة المفاتيح - King SofT - 30-10-2011
وعليكم السلام اخي
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
Var
Bool: Boolean;
touche: Byte;
begin
FormStyle:=fsStayOnTop;
Touche :=VK_CONTROL;
Application.Minimize;
Application.ProcessMessages;
Bool := (GetAsyncKeyState(Touche) and 1 = 1);
Repeat Application.ProcessMessages;
Bool := (GetAsyncKeyState(Touche) and 1 = 1);
Until Bool or Application.Active;
If Bool then
Application.Restore;
form1.WindowState:=wsNormal;
end;
حيث VK_CONTROL في هذا المثال هو الزر كنترول طبعا يمكنك تغيره بما تشاء
تنشيط برنامج عبر لوحة المفاتيح - محمد الدرة - 02-11-2011
شكراً جزيلاً اخي الكريم
جااااااااااااري التطبيق