Lo que pasa es que tengo un prog(end dos)que se ejecuta maximizado, toda la pantalla incluyendo la barra de inicio, como los juegos que ocupan toda la pantalla.
El prog(dos) cuando se ejecuta muestra un logo y después hay que presionar una tecla para que arranque.
Lo que quiero hacer es un prog que ejecute el programa(dos) y le envie una tecla(la que sea), para que el programa(dos) arranque.
Hice este code, pero no sirve, cuando se envia la tecla el programa(dos) se sale de la pantalla completa y al parecer asi lo vuelva a maximizar ni le llega.
Código:
procedure TForm1.FormCreate(Sender: TObject);
var
h:HWND;
begin
ShellExecute(Form1.Handle,'open','BINGO.EXE',nil,'C:\Bingo\',SW_SHOWNORMAL);
Sleep(5000);
h := FindWindow(nil,PChar('BINGO'));
if (h <> 0) then
PostMessage(h, WM_KEYDOWN,VK_RETURN,1)
else
ShowMessage('Handle no encontrado');
end;
[hr]
Me han dicho que se podria hacer con pipes, pero disque es complicado y aparte de eso buscando no es que haya mucha info, si alguien tiene info sobre pipes(tuberias) .
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A