unit2.pas

来自「delphi控件的使用」· PAS 代码 · 共 26 行

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.