update.dpr

来自「delphi编写的自动写的HIS自动更新系统」· DPR 代码 · 共 25 行

program update;

uses
  Forms,
  U_main in 'U_main.pas' {Frmain},
  uftpdown in 'uftpdown.pas';

{$R *.res}


var i:integer;
begin
for i:=1 to ParamCount-2  do begin;
nowshell:=nowshell+ParamStr(i)+' ' ;
end;
subsoft:=ParamStr(10);

begin
  Application.Initialize;
  Application.Title := 'hisupdate';
  Application.CreateForm(TFrmain, Frmain);
  Application.Run;
  end;
end.