qd.~pas

来自「人事管理系统 具备了很强的功能 你看了就知道！」· ~PAS 代码 · 共 42 行

unit qd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  Tqdform = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qdform: Tqdform;

implementation

{$R *.dfm}

procedure Tqdform.FormCreate(Sender: TObject);
var
 windowid:hwnd;
begin
  windowid:=findwindow(nil,'F_main');
  if windowid<>0 then
  begin
    MessageBox(handle,'错误：系统已经启动！','系统启动错误 ',MB_OK or MB_ICONERROR);   // showwindow(foundwin,9);
    halt;
  end;
end;

end.