globe.pas.~6~

来自「一款房产中介软件」· ~6~ 代码 · 共 28 行

unit Globe;

interface

uses SysUtils, ExtCtrls;

var
  OPName: string;
  Path: string;
  procedure ShowForm(FrmID: Cardinal);

implementation
  procedure ShowForm(FrmID: Cardinal);
  begin
     case FrmID of
       0:;
       1:;
     else
     end;
  end;

initialization
  Path := ExtractFilePath(Paramstr(0));

finalization

end.