regserver.dpr

来自「三层图书管理系统」· DPR 代码 · 共 20 行

program RegServer;

uses
  Forms,
  Windows,
  SysUtils,
  Registry;

{$R *.res}

var
  sPath:String;

begin
  Application.Initialize;
  sPath:=ExtractFilePath(Application.ExeName);
  MessageBox(HInstance,'Hello','World',mb_ok);
  Application.Run;
end.