Programm nur einmal starten bei "send to tray"

[mobed]

Tag zusammen,

ich habe eine Frage/Problem.

Vor weg: Ich habe die Suchfunktionbenutzt, aber keine wirklich funktionierende Lösung gefunden.

Ich habe in meine Anwendung das "send to tray" aus diesem Thread . Im ersten Beitrag ist ein Link auf eine "TNA-Demo" Link.
Die habe ich eingebaut und alles funktioniert prima.

Wenn ich nun mit den hier bekannten Methoden meine Andwendung dazubringen möchte, dass sie nur 1 mal startet, funktioniert das nur solange, bis ich die Anwendung in die Tray schicke.

Welche Lösung gibt es um die Anwedung nur 1 mal zu starten, auch wenn sie in der Tray liegt?

Ich muß gestehen, ich bin nicht der erfahrenste Programmierer, aber ich lerne gerne dazu.

Mfg
mobed

[Christian Seehase]

Moin mobed,

mit welcher Methode verhinderst Du denn den Mehrfachstart der Anwendung?

[mobed]

Tag,

ich habe folgenden Code aus diesem Thread (vorletzter auf der 1. Seite) benutzt

Delphi-Quellcode:

unit Only_one;

interface

implementation
uses forms, windows;
var mutex : THandle;
    h     : HWnd;


initialization
  Mutex := CreateMutex(nil, true, 'NetRadio_v3');
  if GetLastError = ERROR_ALREADY_EXISTS then
    begin
     h := 0;
     repeat
       h := FindWindowEx(0, h, 'TApplication', PChar(Application.Title))
     until h <> application.handle;
      if h <> 0 then
        begin
         Windows.ShowWindow(h, SW_ShowNormal);
         windows.SetForegroundWindow(h);
       end;
     halt;
  end;
finalization
  ReleaseMutex(mutex);
end.

Mit dem hat es auch funktioniert, solange ich die Anwendung nicht in die Tray gelegt habe (da wo auch die Uhr ist).

Mfg
mobed

[Christian Seehase]

Moin mobed,

diese Prüfung sollte man möglichst in der Projektdatei durchführen.
Probier's mal so (das muss im Projektquelltext ergänzt werden, um die Application.xxx-Zeilen herum):

Delphi-Quellcode:

uses
  windows;

var
  dwMutex : DWORD;

begin
  // eine GUID sollte eindeutig sein, deshalb besser geeignet, als ein "normaler" string
  // Wenn man die GUID für jedes Programm wo man es braucht neu erzeugt, läuft man auch
  // nicht Gefahr u.U. das man den String in verschiedenen Programmen doppelt verwendet
  dwMutex := CreateMutex(nil,true,'{1E43985D-925A-4733-B556-1BF25A069E3C}'); 
  try
    if ((dwMutex <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then exit;
      Application.Initialize;
      Application.CreateForm(.....);
      Application.Run;
    end;
  finally
    if dwMutex <> 0 then CloseHandle(dwMutex);
  end;
end;

[mobed]

Hi,

danke für die schnelle Hilfe.

Ich habe den Code wie folgt in den Projektcode eingefügt:

Delphi-Quellcode:

program dummy4butler;

uses
  Forms,
  butler_dummy in 'butler_dummy.pas' {Form1};
  windows;

{$R *.res}
var
  dwMutex : DWORD;

begin
  dwMutex := CreateMutex(nil,true,'{1E43985D-925A-4733-B556-1BF25A069E3C}');
  try
    if ((dwMutex <> 0) and (GetLastError = ERROR_ALREADY_EXISTS)) then exit;
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
      end;
  finally
    if dwMutex <> 0 then CloseHandle(dwMutex);
  end;
end.

Dann bekomme ich Fehlermeldungen vom Compiler:
z.B. (die ersten beiden)
[Error] dummy4butler.dpr(6): Declaration expected but identifier 'windows' found
[Error] dummy4butler.dpr(10): Undeclared identifier: 'DWORD'

usw.

Habe ich es an der falschen Stelle eingefügt?

Mfg
mobed

[mobed]

Halli Hallo,

manchmal sollte man(n) einfach genauer hin gucken und die Tipps richtig anwenden.

Ich habe meinen Fehler gefunden und behoben.

Jetzt funktioniert's wunder bar!!!!

Vielen Dank für prompte und gute Hilfe.

Mfg
mobed

[axelf98]

Zitat von mobed:

uses
Forms,
butler_dummy in 'butler_dummy.pas' {Form1};
windows;

Ersetze einmal das Semikolon hinter {Form1} durch ein Komma

[mobed]

Hallo axelf98,

danke.

Ich hab's geändert und zapp zarapp funktionierts.

Mfg
mobed