Barra de Tarefas

Delphi

16/08/2003

[color=darkblue:97ad24e05e][size=18:97ad24e05e]Crei um software em delphi.., mas quero que ele não apareça na barra de tarefas enquanto está sendo executado???[/size:97ad24e05e][/color:97ad24e05e]


Engcomp

Engcomp

Curtidas 0

Respostas

Cebikyn

Cebikyn

16/08/2003

Coloque no evento [b:ada2bfa442]OnShow[/b:ada2bfa442] do seu form:

procedure TMainForm.FormShow(Sender: TObject);
var
  hwndOwner: HWnd;
begin
  hwndOwner := GetWindow(Handle, GW_OWNER);
  ShowWindow(hwndOwner, SW_HIDE);
  ShowWindowAsync(hwndOwner, SW_HIDE);
  ShowWindowAsync(Self.Handle, SW_HIDE);
end;


Coloque na seção [b:ada2bfa442]Private[/b:ada2bfa442]:

private
  procedure WMSysCommand(var msg: TWMSysCommand); message WM_SysCommand;


E finalmente coloque na seção [b:ada2bfa442]Implementation[/b:ada2bfa442]:

procedure TMainForm.WMSysCommand(var msg: TWMSysCommand);
begin
  if msg.CmdType and $FFF0 = SC_MINIMIZE then
    hide
  else
    inherited;
end;



GOSTEI 0
POSTAR