Hola muy buenas a todos y Feliz Año, aber si alguien me puede ayudar ya que e buscado y no encuentro nada
,tengo este codigo:
Código Delphi
[-]uses
Windows, Funciones;
var
Process: Cardinal;
H, U: HWND;
begin
Process := ExecuteProcess('GameLauncher.exe');
if Process <> 0 then WaitForSingleObject(Process, 6000); begin
H := FindWindow('WindowsForms10.Window.8.app.0.fcf9a4', nil); if H <> 0 then
begin
U := FindWindowEx(H, 0, 'WindowsForms10.Window.8.app.0.fcf9a4', nil); if U <> 0 then
begin
U := FindWindowEx(U, 0, 'WindowsForms10.EDIT.app.0.fcf9a4', nil); if U <> 0 then
SendMessage(U, WM_SETTEXT, 0, Integer(PCHAR('123456789'))); PostMessage(U,WM_KEYDOWN,VK_RETURN,0); end;
end;
end;
end.
Lo que quisiera es que pare despues de ExecuteProcess, asta que la ventana sea visible, nose si me e esplicado bien, aber si alguien me puede tirar alguna ayudilla e intentado varias cosas y nada... Muchas gracias desde ya.