www.pudn.com > 自动计划（autoplan）源代码___强烈推荐 .rar > Unt_Rep.pas

unit Unt_Rep; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, SkinControls, Skin, SkinEngine, StdCtrls, ExtCtrls,unt_fun; 
 
type 
  TFrm_Rep = class(TForm) 
    SkinEngine1: TSkinEngine; 
    Timer1: TTimer; 
    Label1: TLabel; 
    Label2: TLabel; 
    ListBox1: TListBox; 
    Image1: TImage; 
    Image2: TImage; 
    procedure Timer1Timer(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; 
      Rect: TRect; State: TOwnerDrawState); 
  private 
    i:integer;{ Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Frm_Rep: TFrm_Rep; 
 
implementation 
 
uses UNT_tj; 
 
{$R *.dfm} 
 
procedure TFrm_Rep.Timer1Timer(Sender: TObject); 
var 
  i:integer; 
begin 
  ListBox1.ItemIndex := 0; 
  Timer1.Enabled := false; 
  if InternetConnected then 
  begin 
    for i:= 0 to 100000 do 
    begin 
      Application.ProcessMessages; 
      ListBox1.ItemIndex := 0; 
    end; 
  end 
  else 
  begin 
    Close; 
    exit; 
  end; 
  if CheckWEB then 
  begin 
    for i:= 0 to 100000 do 
    begin 
      Application.ProcessMessages; 
      ListBox1.ItemIndex := 1; 
    end; 
  end 
  else 
  begin 
    Close; 
  end; 
  for i:= 0 to 50000 do 
  begin 
    Application.ProcessMessages; 
    ListBox1.ItemIndex := 2; 
  end; 
    for i:= 0 to 80000 do 
    begin 
      Application.ProcessMessages; 
      ListBox1.ItemIndex := 3; 
    end; 
  close; 
  frm_tj:= TFrm_Tj.Create(self); 
  frm_tj.ShowModal; 
end; 
 
procedure TFrm_Rep.FormCreate(Sender: TObject); 
Begin 
  SetWindowLong(handle,GWL_STYLE,GetWindowLong(handle,Gwl_STYLE)-WS_CAPTION); 
  Width := width+1; 
 
end; 
 
procedure TFrm_Rep.ListBox1DrawItem(Control: TWinControl; Index: Integer; 
  Rect: TRect; State: TOwnerDrawState); 
var 
  offset:integer; 
begin 
 
 
end; 
 
end.