Fórum Desabilitar aplicativo Delphi ao executar programa externo #361437
22/07/2008
0
Ou seja, se a janela do executável externo for menor que a janela do aplicativo Delphi, não permitir que a janela do aplicativo Delphi seja clicada e ativada, sobrepondo-se sobre o programa externo.
Tem alguma forma?
Agradeço.
Cps.art
Curtir tópico
+ 0Posts
23/07/2008
Cps.art
Gostei + 0
23/07/2008
Luciano.lirio
function Executa(Arquivo: String; Estado: Integer): Integer;
var
Programa:array[0..512] of char;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
Resultado:Cardinal;
begin
StrPCopy(Programa,Arquivo);
FillChar(StartupInfo,Sizeof(StartupInfo),0);
StartupInfo.cb := sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Estado;
if not CreateProcess(nil,Programa,nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo) then
Result := -1
else
begin
WaitForSingleObject(ProcessInfo.hProcess,Infinite);
GetExitCodeProcess(ProcessInfo.hProcess,Resultado);
Result := Resultado;
end;
end;
Gostei + 0
23/07/2008
Cps.art
Gostei + 0
23/07/2008
Luciano.lirio
o segundo parametro indica o estado da janela.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)