[SOLVED] Detect MacOS version

[ChrisR]

Prior to MacOS 11, the code below reported MacOS version correctly. It obviously will not work with MacOS 11, as the "10" is hard coded, but can anyone suggest the recommended backward compatible way to detect MacOS version.

Of reference, on MacOS 11.2.3, this program reports "MacOS: 10.16.3"

program ver;
{$mode objfpc}
uses Dos, sysutils;
//fpc ver.pas; ./ver
begin
   writeln('MacOS: 10.' + IntToStr(Lo(DosVersion) - 4) + '.' + IntToStr(Hi(DosVersion))  );
end.

[Hansaplast]

The way I do it ... and maybe there is a better way ... but here an example project (just a TForm with 2 TLabels).




Don't forget:
- {$modeswitch objectivec1}
- uses CocoaAll

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3.  
4. {$mode objfpc}{$H+}
5. {$modeswitch objectivec1}
6. interface
7.  
8.  
9. uses
10.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, CocoaAll;
11.  
12.  
13. type
14.  
15.  
16.   { TForm1 }
17.  
18.  
19.   TForm1 = class(TForm)
20.     Label1: TLabel;
21.     Label2: TLabel;
22.     procedure FormCreate(Sender: TObject);
23.   private
24.  
25.  
26.   public
27.  
28.  
29.   end;
30.  
31.  
32. var
33.   Form1: TForm1;
34.  
35.  
36. implementation
37.  
38.  
39. {$R *.lfm}
40.  
41.  
42. { TForm1 }
43.  
44.  
45. procedure TForm1.FormCreate(Sender: TObject);
46. begin
47.   Label1.Caption :=  NSProcessInfo.ProcessInfo.operatingSystemVersionString.UTF8String;
48.  
49.  
50.   Label2.Caption := IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.majorVersion ) + '.' +
51.                     IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.minorVersion ) + '.' +
52.                     IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.patchVersion );
53. end;
54.  
55.  
56. end.
57.  

[trev]

Beware NSProcessInfo.ProcessInfo.OperatingSystemVersion is only available from Yosemite (10.10). Whereas operatingSystemVersionString is available from Jaguar (10.2).

See the Wiki article Accessing macOS System Information.

[Hansaplast]

Thanks Trev for the heads up!
I wasn't aware ...

[trev]

The final solution which works for Mac OS X 10.0 through macOS 11.2.3:

Code: Pascal  [Select][+][-]

1. unit Unit1;
2. {$mode objfpc}{$H+}
3. {$modeswitch objectivec2}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils, Forms, Dialogs, StdCtrls, ExtCtrls,
9.   MacOSAll,
10.   CocoaAll;
11.  
12. type
13.   TForm1 = Class(TForm)
14.     Memo1: TMemo;
15.     Button1: TButton;
16.     procedure Button1Click(Sender: TObject);
17.   private
18.   public
19.   end;
20.  
21. var
22.   Form1: TForm1;
23.   counter: Int64;
24.  
25. implementation
26.  
27. {$R *.lfm}
28.  
29. { TForm1 }
30. procedure ProcessInfo;
31. begin
32.     Form1.Memo1.Lines.Clear;
33.  
34.     Form1.Memo1.Lines.Add('macOS version: '
35.       + IntToStr(NSProcessInfo.ProcessInfo.operatingSystemVersion.majorVersion)
36.       + '.'
37.       + IntToStr(NSProcessInfo.ProcessInfo.operatingSystemVersion.minorVersion)
38.       + '.'
39.       + IntToStr(NSProcessInfo.ProcessInfo.operatingSystemVersion.patchVersion)
40.     );
41. end;
42.  
43. Procedure GestaltInfo;
44. var
45.     majorVersion: LongInt = 0;
46.     minorVersion: LongInt = 0;
47.     patchVersion: LongInt = 0;
48. begin
49.     Form1.Memo1.Lines.Clear;
50.     Form1.Memo1.Lines.Add('Trying another way...');
51.  
52.     Gestalt(gestaltSystemVersionMajor, majorVersion);
53.     Gestalt(gestaltSystemVersionMinor, minorVersion);
54.     Gestalt(gestaltSystemVersionBugFix, patchVersion);
55.  
56.     Form1.Memo1.Lines.Add('macOS vedrsion: ' + IntToStr(majorVersion) + '.' +
57.       IntToStr(minorVersion) + '.' + IntToStr(patchVersion));
58. end;
59.  
60. procedure TForm1.Button1Click(Sender: TObject);
61. var
62.   aSEL : SEL;
63. begin
64.   // Check whether OS version responds to this selector
65.   aSEL := objcselector('operatingSystemVersion');
66.   if NSProcessInfo.processInfo.respondsToSelector(aSEL) then
67.     processInfo
68.   // Fallback to the deprecated Gestalt function
69.   else
70.      GestaltInfo;
71. end;
72. end.

[ChrisR]

Sorry I missed the well written wiki page. Thanks for the rapid solution.

[jwdietrich]

The following code supports current operating systems (macOS Ventura 13.6 or newer):

Code: Pascal  [Select][+][-]

1. function SystemVersion: String;
2. begin
3.   result := NSProcessInfo.ProcessInfo.operatingSystemVersionString.UTF8String;
4. end;