Programm im Hintergrund laufen lassen

[geisi]

Delphi-Quellcode:

begin 
  Application.Initialize; 
  Application.ShowMainForm:=false; //<------------ Das ist neu 
  Application.CreateForm(TForm1, Form1); 
  Application.Run; 
end.

diesen code habe ich hier im forum bekommen um damit mein programm im Hintergrund laufen zu lassen.

Nur wie verwende ich diesen?

[MathiasSimmack]

Du öffnest deinen Projektquelltext (Menü: Projekt -> Quelltext anzeigen) und trägst die Zeile, die in deinem Beispiel gekennzeichnet zusätzlich ein.

[devnull]

Ich nehm an, dass Du deine Anwendung nur verstecken willst.
Das kannste realisieren, indem Du einfach in das FormCreate-Ereignis

Delphi-Quellcode:

  Form1.Visible := false;
  Form1.FormStyle := fsNormal;

schreibst.

Hoffe das hilft
devnull

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

einfach dahin, wonach es aussieht (z.B. Project1.dpr):

Code:

[b]Program[/b] Project1;

[b]Uses[/b] Forms,
  Unit1 [b]in[/b] 'Unit1.pas' {Form1};

{$R *.res}

[b]Begin[/b]
  Application.Initialize;
  [color=red]Application.ShowMainForm := False;[/color]
  Application.CreateForm(TForm1, Form1);
  Application.Run;
[b]End[/b].

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[geisi]

ok, danke.

aber ich hätte es gerne, dass mein Programm in der Tastleiste(neben der Uhr) als kleines Symbol angezeigt wird, sodass ich es, wenn ich es brauche, immer wieder öffnen kann.

[himitsu]

Such mal hier im Forum: TNA


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[devnull]

Da kannst du mal nach DP suchen: TNA.
Hier mal ein Link:

TNA

devnull


Ach verdammt, da war schon wieder einer schneller ...

[geisi]

ich hab jetzt folgenden Source aus dem Forum, es wird aber kein Symbol angezeigt.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    IconData: TNotifyIconData;
  public
    { Public-Deklarationen }
    procedure WndProc(var Msg: TMessage); override;
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation 

{$R *.dfm}

//////////////////////////////////////////////////////////////////////////////// 
// auf Mausklicks reagieren, Fensterprozedur erweitern 

procedure TForm1.WndProc(var Msg: TMessage);
var
  Point: TPoint;
begin 
  if Msg.Msg = WM_USER + 20 then
  begin 
    case Msg.lParam of
      WM_RBUTTONDOWN: 
        begin
          //ShowMessage('rechts runter'); 
        end;
      WM_LBUTTONDOWN: 
        begin
          //ShowMessage('links runter'); 
        end;
      WM_LBUTTONDBLCLK: 
        begin
          Form1.Show; 
          // Icon nur anzeigen wenn Fenster minimiert
          Shell_NotifyIcon(NIM_DELETE, @IconData); 
        end; 
    end;
  end; 
  inherited; 
end;

//////////////////////////////////////////////////////////////////////////////// 
// beim Minimieren Fomr verstecken und Icon in die TNA

procedure TForm1.WMSysCommand(var Message: TWMSysCommand); 
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then 
  begin 
    Hide;
    // Icon nur anzeigen wenn Fenster minimiert 
    Shell_NotifyIcon(NIM_ADD, @IconData); 
  end
  else 
    inherited; 
end;

//////////////////////////////////////////////////////////////////////////////// 
// Beim beenden Icon entfernen

procedure TForm1.FormDestroy(Sender: TObject); 
begin
  Shell_NotifyIcon(NIM_DELETE, @IconData); 
end; 

//////////////////////////////////////////////////////////////////////////////// 
// Beim Erstellen des Formulares TNotifyIconData-Struktur initialisieren 

procedure TForm1.FormCreate(Sender: TObject); 
begin
  Application.ShowMainForm := False; //Programm gar nicht erst anzeigen
  IconData.cbSize := SizeOf(IconData);
  IconData.Wnd := Handle;
  IconData.uID := 100;
  IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
  IconData.uCallBackMessage := WM_USER + 20;
  IconData.hIcon := Application.Icon.Handle;
  IconData.szTip := 'Dies ist ein TNA-Icon';
  Shell_NotifyIcon(NIM_ADD, @IconData); // fügt das Icon ein end;
end;

end.

[Luckie]

Das ist mein Code und der Funktioniert bei mir einwandfrei. Häng mal das Projekt mit Source an.

[geisi]

hier ist das projekt