shield.pas

2003年的远程控制

unit shield;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Gauges, StdCtrls;

type
  Tshield = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Gauge1: TGauge;
    procedure runinstall(i:integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  

implementation

{$R *.DFM}

procedure Tshield.runinstall(i:integer);
var k:integer;
begin
for k:=0 to i do
 begin
 gauge1.progress:=k;
 sleep(random(100));
 update;
 end;
end;

end.