Fórum Maximizar uma aplicação qualquer no Delphi 7 #400093
02/05/2011
0
Galera estou precisando maximizar um aplicação que esteja minimizada
Segue o codigo
procedure TForm1.Button2Click(Sender: TObject);
var vHandle: THandle;
begin
vHandle := FindWindow(nil, 'Monitor O.S.');
if vHandle <> 0 then
SetForegroundWindow (vHandle)
else
ShellExecute(Handle, 'OPEN', 'Nome Aplicação' ,nil, nil, SW_SHOWMAXIMIZED);
end;
Segue o codigo
procedure TForm1.Button2Click(Sender: TObject);
var vHandle: THandle;
begin
vHandle := FindWindow(nil, 'Monitor O.S.');
if vHandle <> 0 then
SetForegroundWindow (vHandle)
else
ShellExecute(Handle, 'OPEN', 'Nome Aplicação' ,nil, nil, SW_SHOWMAXIMIZED);
end;
Alexandre
Curtir tópico
+ 0
Responder
Posts
02/05/2011
Emerson Nascimento
tente:
var
vHandle: THandle;
begin
vHandle := FindWindow(nil, 'Development Studio');
if vHandle <> 0 then
PostMessage(vHandle, WM_SYSCOMMAND, SC_RESTORE, 0)
else
ShellExecute(Handle, 'OPEN', 'Nome Aplicação' ,nil, nil, SW_SHOWMAXIMIZED);
end;
esse código não vai maximizar a aplicação. vai restaurar a última forma de exibição.
obs.: para forçar a maximização use SC_MAXIMIZE em vez de SC_RESTORE.
var
vHandle: THandle;
begin
vHandle := FindWindow(nil, 'Development Studio');
if vHandle <> 0 then
PostMessage(vHandle, WM_SYSCOMMAND, SC_RESTORE, 0)
else
ShellExecute(Handle, 'OPEN', 'Nome Aplicação' ,nil, nil, SW_SHOWMAXIMIZED);
end;
esse código não vai maximizar a aplicação. vai restaurar a última forma de exibição.
obs.: para forçar a maximização use SC_MAXIMIZE em vez de SC_RESTORE.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)