Kod: Tümünü seç
unit NetTimer;
interface
uses
System.Classes, NetworkState;
type
TNetTimer = class(TThread)
private
FNS: TNetworkState;
protected
procedure Command;
public
StartTickCount, Delay: Cardinal;
procedure Execute; override;
end;
implementation
{ TNetTimer }
uses uMain;
procedure TNetTimer.Command;
begin
FNS := TNetworkState.Create;
if not FNS.IsConnected then
begin
Main.Name.Text := 'off';
end else
begin
Main.Name.Text := 'on';
end;
end;
procedure TNetTimer.Execute;
var
C: Cardinal;
begin
StartTickCount := GetTickCount;
repeat
C := GetTickCount;
if StartTickCount + Delay >= C then
begin
Command;
StartTickCount := C;
end;
until False;
end;
end.
procedure TMain.FormCreate(Sender: TObject);
var
NT: TNetTimer;
begin
NT := TNetTimer.Create;
NT.Delay := 1000;
NT.Execute;
end;