regsqldmo.dpr

来自「注册sqldmo,希望可以帮助大家」· DPR 代码 · 共 35 行

program RegSqlDmo;
{*******************************************************}
{                                                       }
{       Borland Delphi Run-time Library                 }
{       Win32 API Interface Application Console         }
{                                                       }
{       Copyright (c) 2007-2010, 上海北辰软件有限公司   }
{                                                       }
{       Translator: Borland Software Corporation        }
{                                                       }
{*******************************************************}
{$APPTYPE CONSOLE}
uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  shellapi,
  Dialogs,
  StdCtrls,
  uPubUnit in 'uPubUnit.pas';
var
  aBuf: Array[0..MAX_PATH] of Char;
  gWinPath:string;
begin
  GetWindowsDirectory(aBuf, MAX_PATH);
  gWinPath := aBuf;
  Run(gWinPath);
end.