Ver Mensaje Individual
  #9  
Antiguo 14-04-2022
DarkSton DarkSton is offline
Miembro
 
Registrado: jun 2017
Posts: 64
Reputación: 7
DarkSton Va por buen camino
lo probé así pára ver si se abría el ayuda y soporte técnico de windows y no paso nada
o mas bien dicho es mi idea , mira que yo al hacer clic en el button simule la pulsacion F1 y que se abra el ayuda y soporte técnico de windows y no paso nada , haber si me deje entender
Código Delphi [-]
procedure SimKey(VK: BYTE; Down: boolean);
var
  Input: TInput;
begin
  ZeroMemory(@Input, sizeof(Input));
  Input.iType:= INPUT_KEYBOARD;
  Input.ki.wVk:= VK;
  Input.ki.wScan:= MapVirtualKey(VK, 0);
  Input.ki.dwFlags:= KEYEVENTF_EXTENDEDKEY;
  if not Down then
    Input.ki.dwFlags:= Input.ki.dwFlags or KEYEVENTF_KEYUP;
  windows.SendInput(1, tagINPUT(Input), sizeof(TInput));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  SimKey(VK_F1, true);
   SimKey(VK_F1, false);
end;

Última edición por Casimiro Notevi fecha: 14-04-2022 a las 10:27:52. Razón: Cambiar CODE por DELPHI
Responder Con Cita