GARANTIR DESCONTO

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;
Alexandre

Alexandre

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.

Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar