logounit.pas

来自「一个用delphi 开发的商场销售系统 涵盖很多功能」· PAS 代码 · 共 48 行

unit LogoUnit;

interface

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

type
  TLogoForm = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    StatusBar1: TStatusBar;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LogoForm: TLogoForm;

implementation

uses LoginUnit;

{$R *.dfm}

procedure TLogoForm.FormCreate(Sender: TObject);
var
  Foundwin: HWND;
begin
  Foundwin := FindWindow(nil, '商品销售管理系统 -'); // 查找窗口
  if Foundwin <> 0 then begin
     // 调用Delphi自带的查询窗口函数，查找特定标题的窗体
     // 若找到则激活已运行的程序，同时结束自身
    ShowWindow(Foundwin, SW_RESTORE);
    halt;
  end;
end;

end.