unit2.pas

delphi控件的使用

unit Unit2;

interface

uses
  Windows;

function CheckPrevInst( Title : string ) : boolean;

implementation

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

end.