Assa's Service Unit - FPC mag es nicht

[gbl]

Ja natürlich, im Hauptprogramm hab' ich noch einen Switch eingebaut, damit ich den eigendlichen Service besser testen kann.
Überflüssig zu erwähnen, daß es unter DELPHI problemlos funktionierte.

Delphi-Quellcode:

BEGIN
  r_g3.timedelta:=def_timedelta;
  time0:=Time;

  runshell:=(paramstr(1)='/applicationmode') or (paramstr(1)='/c');

  if runshell then
  begin
//    ClrScr;
//    FlushInputBuffer;
    writeln('Running in Application Mode');
    writeln;

//    SERVICE_MAIN
  end
  else
    PROG_MAIN;
END.