project1.~dpr

实现http上传功能。FTP上传文件。信息时时上传功能。

program Project1;



uses
  Forms,
  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.