ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function DiskSpace(AFileName : string) : int;
var
 fso, drv : OleVariant;
begin
 fso := CreateOleObject('Scripting.FileSystemObject');
 drv := fso.GetDrive(fso.GetDriveName(AFileName));
 DiskSpace := drv.AvailableSpace;
end;

program MyApp;

{$APPTYPE CONSOLE}

uses
  ExtCtrls;

var
  Timer: TTimer;

procedure MyAppOnTimer(Sender: TObject);
begin
  {}
end;

begin
  Timer := TTimer.Create(nil);
  Timer.OnTimer := MyAppOnTimer; //вот здесь ошибка.
end;

type
  ....
  TMyTimer = class(TObject)
    timTimer: TTimer;
    booTrigger: boolean;
    procedure timTimerTimer(Sender: TObject);
  end;
  ....


procedure TMyTimer.timTimerTimer(Sender: TObject);
begin
  booTrigger := true;
  ...
end;

procedure TimerExample;
var
  timDemo: TMyTimer;
begin
  with timDemo do
  begin
    timDemo := TMyTimer.Create;
    timTimer := TTimer.Create(nil);
    booTrigger := false;
    timTimer.Interval:=30000;
    timTimer.Enabled:=true;
    timTimer.OnTimer := timDemo.timTimerTimer;
    repeat
      Application.ProcessMessages;
    until booTrigger;
    Free;
  end;
end;

program MyApp;

{$APPTYPE CONSOLE}

uses
  ExtCtrls;
type
  TSomeObj = class
     class procedure MyProc(Sender:TObject);
  end;
var
  Timer: TTimer;

class procedure TSomeObj.MyProc(Sender: TObject);
begin
  {}
end;

begin
  Timer := TTimer.Create(nil);
//  Timer.OnTimer := MyAppOnTimer; //вот здесь ошибка.
  Timer.OnTimer := TSomeObj.MyProc;
end;