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.