Question

How to get the current OS name and version in Pascal

Answer 1

program GetOSInfoProgram;

begin
  // Output the operating system details
  WriteLn('Operating System: ', {$I %FPCTARGETOS%});
  WriteLn('Architecture: ', {$I %FPCTARGETCPU%});
  WriteLn('FPC Version: ', {$I %FPCVERSION%});
end.




(*
run:

Operating System: Linux
Architecture: x86_64
FPC Version: 3.0.4

*)

 

70+ SQL courses for beginners and professionals