docplaza.dpr

是一款很不错资料数据库管理软件

program docplaza;

uses
  Forms,
  windows,
  mainform in 'mainform.pas' {mainwin},
  proset in 'proset.pas',
  startf in 'startf.pas' {startForm},
  optionf in 'optionf.pas' {optionForm},
  aboutf in 'aboutf.pas' {aboutForm},
  qureyf in 'qureyf.pas' {queryForm};

{$R *.RES}
var
  ITime:DWORD;
  hMutex:HWND;
  Ret:Integer;
begin
  Application.Initialize;
  Application.HintColor:=$0000FF00;
  Application.HintPause:=200;
  Application.HintHidePause:=3000;
  Application.Title := '奥博资料库 V1.5';
  Application.HelpFile := 'D:\myprogram\Delphi4app\docplaza\HELP\Docplaza.hlp';
  hMutex:=CreateMutex(nil,False,'aaaaaa');
  Ret:=GetLastError;
  If Ret=ERROR_ALREADY_EXISTS Then
  begin
  Application.MessageBox('注意！奥博资料收藏库已在运行！','奥博软件',MB_OK+MB_ICONWARNING);
  ReleaseMutex(hMutex);
  halt;
  end;
  startform:=Tstartform.Create(Application);
  startform.Show;
  startform.Update;
  Application.CreateForm(Tmainwin, mainwin);
  Application.CreateForm(TqueryForm, queryForm);
  ITime:=GetTickCount;
  while (GetTickCount-ITime)<1000 do;
  startform.Hide;
  startform.Free;
  Application.Run;
end.