sql_admin.dpr

来自「实现了在开发的数据库程序中打包加入SQL数据库驱动并允许在安装程序服务器端时安装」· DPR 代码 · 共 46 行

program SQL_Admin;

uses
  Forms,
  windows,
  Dialogs,
  SysUtils,
  mian in 'mian.pas' {main},
  RunWaitEXE in 'RunWaitEXE.pas',
  Myfuctions in 'Myfuctions.pas',
  strinfo in 'strinfo.pas',
  runsql_u in 'runsql_u.pas' {runsql},
  adddb_u in 'adddb_u.pas' {adddb};

{$R *.res}

var
H:hwnd;
p1,p2:string;
begin
  Application.Initialize;
  Application.HintPause:=0;

  p1:=UpperCase(Formatfilelink('$PP'));
  p2:=UpperCase('d:\sm_sql\');
  if p1<>p2 then
  begin
    showmessage('运行目录:'+p1+#13+'规定目录:'+p2+#13+'不相符合,强行退出.');
    halt;
  end;

  {判断是否运行}
  Application.Title := '　';
  h:=FindWindow(nil,'MS SQL Server 绿色版 管理器');
  if h<>0 then
    begin
      SetForegroundWindow(h);
      halt;
    end;   
    
  Application.Title := 'MS SQL Server 绿色版 管理器';

  Application.CreateForm(Tmain, main);
  Application.Run;
end.