[mutex] - Parameter an "alte" Anwendung geben

[xZise]

Wie kann ich die Parameter an die alte Anwendung geben, wenn das akt. Programm par Mutex blockiert wird?

Akt. Mutexdatei:

Delphi-Quellcode:

unit mutex;

interface

implementation

uses Windows, Dialogs;

var
    mHandle: THandle;
  wnd: HWND;

initialization
 mHandle := CreateMutex(Nil, True, PChar('QuickInstallByXzise'));

   if GetLastError = ERROR_ALREADY_EXISTS then
   begin
    Showmessage('Anwendung ist bereits gestartet!');

    wnd := FindWindow('TfrmQuinstall', 'QuickInstall');
    if wnd <> 0 then
    begin
      SetForegroundWindow(wnd);
    end;
     Halt;
   end;

finalization
 if mHandle <> 0 then
   CloseHandle(mHandle);

end.

[bitsetter]

Hi,

dazu gab es schon mal ein Thema, hast du dir dieses hier mal angesehen?

Gibt es auch eine Möglichkeit die Parameter umzuleiten auf das bereits laufende Programm?

[Christian Seehase]

Moin Fabian,

solche Überprüfungen sind, IMHO, aber besser in der Projektdatei aufgehoben.

[himitsu]

Per Halt; abzubrechen ist auch nicht unbeding eine elegante Lösung.
(dieses liese sich direkt in der Projektdatei dann auch "besser" lösen)

[xZise]

Ihr meint, dass ich alles mit "Application." in eine "erfolgreiche"-If packe?
Ließe sich machen!
Und wäre auch nicht so dumm

Obwohl diese Datei als erstes in der Uses steht, also wahrscheinlich vor fast allen ausgelöst wird
Aber ich gebe euch recht dass es immer noch über eine If-Bedinung wesentlich elegangter wäre

PS: @ Bitsetter: Danke für den Link!

[edit]Code
Problem: "dwMessage" kennt er nicht!
Units sind eingebunden[/edit]

[bitsetter]

Hi.

Christian Seehase hat geschrieben:

Delphi-Quellcode:

  // Die Variable dwMessage ist in der Unit MAIN deklariert, da sie dort noch
  // gebraucht wird

Delphi-Quellcode:

unit MAIN;

interface

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

type
  TfrmMAIN = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  protected
    // WndProc für eigene Message überschreiben
    procedure WndProc(var msg : TMessage); override;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmMAIN: TfrmMAIN;
  dwMessage : DWORD;//hier ist sie!

[xZise]

OOPs... Wie Peinlich