project1.dpr

来自「实现http上传功能。FTP上传文件。信息时时上传功能。」· DPR 代码 · 共 26 行

program Project1;



uses
  windows,
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {FAdmin};

{$R *.res}

var
  i: integer;
begin
  if  FindWindow(nil,'公文信息发布程序') <>0 then
    application.Terminate;
  i := LastDelimiter('\:',Application.ExeName);
  SysPath := Copy(Application.ExeName , 1 , i-1);
  Application.Initialize;
  Application.Title := '公文信息发布程序';
 // Application.Initialize;
  Application.CreateForm(TFAdmin, FAdmin);
  Application.Run;
end.