Maximizar uma aplicação qualquer no Delphi 7
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
Curtidas 0
Respostas
Emerson Nascimento
02/05/2011
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.
GOSTEI 0