Kun 1 instans, og hvis findes, så hvis eksisterende

Jeg sidder og laver lidt på et program som der kun må køre 1 instans af. Det er heller ikke noget problem, men jeg vil gerne ha' at hvis man starter programmet igen, så sætter den bare fokus på det allerede åbne program. Hvis det åbne program er minimeret så kan jeg godt få det til at virke, men hvis programmet bare ligger bag nogle andre ting, så kan jeg ikke så det frem foran alle de andre programmer.

Jeg bruger følgende kode:

.dpr filen:

program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
{Attempt to create a named mutex}
  CreateMutex(nil, false, 'ReportViewer');
{if it failed then there is another instance}
  if GetLastError = ERROR_ALREADY_EXISTS then begin
  {Send all windows our custom message - only our other}
  {instance will recognise it, and restore itself}
    SendMessage(HWND_BROADCAST,
                RegisterWindowMessage('ReportViewer'),
                0,
                0);
  {Lets quit}
    Halt(0);
  end;
  Application.Initialize;
{Tell Delphi to un-hide it's hidden application window}
{This allows our instance to have a icon on the task bar}
  Application.ShowMainForm := true;
  ShowWindow(Application.Handle, SW_RESTORE);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

.pas filen:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var
  OldWindowProc : Pointer; {Variable for the old windows proc}
  MyMsg : DWord; {custom systemwide message}

function NewWindowProc(WindowHandle : hWnd;
                      TheMessage  : LongInt;
                      ParamW      : LongInt;
                      ParamL      : LongInt) : LongInt stdcall;
begin
  if TheMessage = MyMsg  then begin
  {Tell the application to restore, let it restore the form}
    SendMessage(Application.handle, WM_SYSCOMMAND, SC_RESTORE, 0);
    SetForegroundWindow(Application.Handle);
  {We handled the message - we are done}
    Result := 0;
    exit;
  end;
  {Call the original winproc}
  Result := CallWindowProc(OldWindowProc,
                          WindowHandle,
                          TheMessage,
                          ParamW,
                          ParamL);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
sleep(5000);
{Register a custom windows message}
  MyMsg := RegisterWindowMessage('ReportViewer');
{Set form1's windows proc to ours and remember the old window proc}
  OldWindowProc := Pointer(SetWindowLong(Form1.Handle,
                                        GWL_WNDPROC,
                                        LongInt(@NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
{Set form1's window proc back to it's original procedure}
  SetWindowLong(Form1.Handle,
                GWL_WNDPROC,
                LongInt(OldWindowProc));
end;

end.


Jeg har prøvet at smide en SetForegroundWindow ind et par forskellige steder, men det har ikke rigtig noget effekt.

Nogen forslag !? :)

Snowball