project1.dpr

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· DPR 代码 · 共 49 行

program Project1;

uses
  windows,
  Forms,
  uMain in 'uMain.pas' {mainfrm},
  uSECData in 'uSECData.pas' {SECData: TDataModule},
  uIAppImp in 'uIAppImp.pas',
  Controls in 'Controls.pas';

{$R *.res}

type
  TShowLogo=procedure;stdcall;
  TReleaseLogo=procedure;stdcall;

var
  ShowLogo:TShowLogo;
  ReleaseLogo:TReleaseLogo;
  DllHandle:THandle;

begin
  Application.Initialize;
  Application.Title := 'CartmanLand v1.0';
  //DllHandle:=Loadlibrary('Secfrm.dll');
  try
    {if DllHandle<>0 then
    begin
      @ShowLogo:=GetProcAddress(DllHandle,'ShowLogo');
      if @ShowLogo<>nil then
        ShowLogo;
    end; }
    //sleep(2000);
  App:=TApp.Create;
  App.Application:=Application;
  Application.CreateForm(TSECData, SECData);
  Application.CreateForm(Tmainfrm, mainfrm);
  finally
    {if DllHandle<>0 then
    begin
      @ReleaseLogo:=GetProcAddress(DllHandle,'ReleaseLogo');
      if @ReleaseLogo<>nil then
        ReleaseLogo;
    end;
    FreeLibrary(DllHandle); }
  end;
  Application.Run;
end.