previnst.pas

delphi控件的使用

unit PrevInst;

interface

uses
  Windows,Messages, SysUtils, Controls, Forms, Dialogs, StdCtrls;

function CheckPrevInst( Title : string ) : boolean;

implementation

function CheckPrevInst( Title : string ) : boolean;
var
  hd : HWND;
  ps : Array[0..255] of Char;
begin
  hd := FindWindow( 'TApplication', StrPCopy(ps, Title) );
  if hd <> 0 then begin
    SetForegroundWindow( hd );
    ShowWindow( hd, SW_RESTORE );
  end;
  Result := hd <> 0;
end;

end.