Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!
Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Bijvoorbeeld “MacOS X – Jouw vraag“, of bijvoorbeeld “MS Word – Jouw Tip of Truc“.
Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent aangezien er waarschijnlijk geen vertaling beschikbaar is.
Ad Blocking Gedetecteerd
Vriendelijk verzoek om te overwegen Ad Blocking uit te zetten voor onze website.
We zijn afhankelijk van inkomen uit Advertenties om de website te kunnen draaien.
Je kunt ons ook op andere manieren ondersteunen (zie Ondersteun ons).
Lazarus Pascal - Hoe bepaal je de macOS versie?
Delphi, Lazarus, Free Pascal
(@hans)
Famed Member Admin
Deelgenomen: 11 jaar geleden
Berichten: 2654
Topic starter
14 april 2021 17:41
Ik kreeg deze vraag toevallig vandaag, en maakte er een klein demo projectje van - misschien heeft iemand er wat aan ...
Niet vergeten:
- {$modeswitch objectivec1}
- uses CocoaAll
unit Unit1;
{$mode objfpc}{$H+}
{$modeswitch objectivec1}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, CocoaAll;
type
{ TForm1 }
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := NSProcessInfo.ProcessInfo.operatingSystemVersionString.UTF8String;
Label2.Caption := IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.majorVersion ) + '.' +
IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.minorVersion ) + '.' +
IntToStr( NSProcessInfo.ProcessInfo.OperatingSystemVersion.patchVersion );
end;
end.
Ad Blocking Gedetecteerd
Vriendelijk verzoek om te overwegen Ad Blocking uit te zetten voor onze website.
We zijn afhankelijk van inkomen uit Advertenties om de website te kunnen draaien.
Je kunt ons ook op andere manieren ondersteunen (zie Ondersteun ons).