تنشيط برنامج عبر لوحة المفاتيح

[King SofT]

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

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 في هذا المثال هو الزر كنترول طبعا يمكنك تغيره بما تشاء