Einzelnen Beitrag anzeigen

DevilsCamp
(Gast)

n/a Beiträge
 
#26

Re: Programm vor Taskmanager verstecken

  Alt 18. Jul 2005, 14:39
Ich habe den Fehler.

Das Icon, das bei Alt-Tab angezeigt wird, gehört zum MainForm.
Ich muss also auch das MainForm (in diesem Fall Form1) verstecken:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  mdown := false;

  Timer1.Enabled := True;

end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;

  ShowWindow( Application.Handle, SW_HIDE );
  SetWindowLong( Application.Handle, GWL_EXSTYLE,
                 GetWindowLong(Application.Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  ShowWindow( Application.Handle, SW_SHOW );

  ShowWindow( Handle, SW_HIDE );
  SetWindowLong( Handle, GWL_EXSTYLE,
                 GetWindowLong(Handle, GWL_EXSTYLE) or
                 WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
  ShowWindow( Handle, SW_SHOW );
end;
So funktioniert es...
  Mit Zitat antworten Zitat