arupdata_.pas

来自「这是一款简单易用的自动升级及更新软件」· PAS 代码 · 共 28 行

PAS
28
字号
unit arUpdata_;

interface

uses
  Classes;

type
  arUpdata = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation
uses update;


procedure arUpdata.Execute;
begin
  UpdataFrm.ReadUpdateMessage(Updatafrm.inifile,
  Updatafrm.Updatefiles,Updatafrm.ProgressStatus);
  UpdataFrm.ShlExecute(Updatafrm.inifile);
end;

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?