regsqldmo.~dpr

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

program RegSqlDmo;

{$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.