Konsole für Anfänger

[SirThornberry]

Delphi-Quellcode:

var
  TimeTo: Cardinal;
  FileFound: Boolean;
begin
  TimeTo := GetTickCount() + 15000;
  repeat
    FileFound = FileExists('Dateiname');
  until ((TimeTo < GetTickCount()) or FileFound);

  if FileFound then
    halt(0)
  else
    halt(1);