Taskleiste Programm verstecken

[asusbob]

Ich habe gesucht und gesucht und gefunden und gefunden und nix wirkt ^^...

Ich versuche mein Programm aus der Taskleiste zu entfernen, ich bin auch beim Suchen (unter anderem) auf

  ShowWindow(Application.Handle, SW_HIDE); gestossen. Wirkt nicht. Und nein, ich habe es nicht im Create-Ereignis, ich hatte es im Create, im Paint, in nem Timer - ich verzweifel ^^


Viele Grüße
Till

ps. Delphi 2007

[asusbob]

ersetze application mit formname und es funzt -.-

trotzdem danke an alle die das lesen


OK, doch nich, jetzt is auch das Formular wech

[omata]

Delphi-Quellcode:

  :
  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SysCommand;
  :
  :
procedure TForm.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle, GW_OWNER);
  ShowWindow(Owner, SW_HIDE);
end;

procedure TForm.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
    Hide
  else
    inherited;
end;

[asusbob]

Code nich verstanden... 1 zu 1 kopiert: funzt nicht

SC_MINIMIZE? Der Eintrag in der Taskbar soll nich verschwinden wenn das Fenster minimiert ist (kann es was damit zu tun haben?) Der soll immer weg sein.

Aber danke schonmal

[omata]

Was gibt es daran nicht zu verstehen...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SysCommand;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
    Hide
  else
    inherited;
end;

procedure TForm1.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle, GW_OWNER);
  ShowWindow(Owner, SW_HIDE);
end;

end.

...funktioniert wunderbar.

Edit:

Zitat von asusbob:

Der Eintrag in der Taskbar soll nich verschwinden wenn das Fenster minimiert ist ... Der soll immer weg sein.

Was soll das? Soll beim Minimieren der Taskbar-Eintrag sichtbar sein? Was soll dann die Aussage, der soll immer weg sein? Präzisiere mal deine Anforderungen und Wünsche, dann kann man dir vielleicht auch helfen.

[asusbob]

Joaaaa... beim minimieren... aber ich will ja nicht minimieren

Ich möchte, dass in der Taskbar einfach kein Eintrag vorhanden ist, gleich nach dem Start des Programms (so wie man es z.b. von WinAmp kennt)

[omata]

Also bei mir ist beim Start kein Taskbareintrag vorhanden.

Naja, war ein Versuch.

[asusbob]

Mit Delphi 7 kompiliert -> funzt... mit Delphi 2007 nich aber so reichts mir auch

Vielen Vielen Dank =)

ps. btw, vllt weiß ja wer warum es unter 2k7 nich funzt

[omata]

Bei > Delphi 7 muss in der Projektdatei folgendes gesetzt werden...
Application.MainFormOnTaskbar := false; ...dann ist das Verhalten identisch.

[Felix015]

Noch ne möglichkeit:

Delphi-Quellcode:

procedure ShowTaskBar;
var
  hApp: HWND;
  rcApp, rcWork: TRect;
begin
  { get the taskbar handle }
  hApp := FindWindow('Shell_TrayWnd', '');
  if hApp <> 0 then begin
    { restore taskbar }
    ShowWindow(hApp, SW_RESTORE);
    { set workarea excluding taskbar }

  end;
end;

und zum verstecken:

Delphi-Quellcode:

procedure HideTaskBar;
var
  hApp: HWND;
  rcWork: TRect;
begin
  { get the taskbar handle }
  hApp := FindWindow('Shell_TrayWnd', '');
  if hApp <> 0 then begin
    { hide taskbar }
    ShowWindow(hApp, SW_HIDE);
    { set workarea to full screen }
    FullScreenArea;
  end;
end;