[Delpi3] jaki system?

jak moja aplikacja napisana w delphi3 ma rozpoznać na jakim systemie działa?

Justyna

---

var
OS:TOsVersionInfo;
begin
OS.dwOSVersionInfoSize:=SizeOf(os);
GetVersionEx(os);
case os.dwPlatformId of
VER_PLATFORM_WIN32s: Form1.Caption:='WIN 3.1';
VER_PLATFORM_WIN32_WINDOWS: Form1.Caption:='WIN 9598';
VER_PLATFORM_WIN32_NT: Form1.Caption:='WIN NT';
end;
end;

Asdef

1.

uses registry;

function GetWindowsVersion: string;
var
 VerInfo: TOsversionInfo;
 PlatformId, VersionNumber: string;
 Reg: TRegistry;
begin
VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
GetVersionEx(VerInfo);
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
case VerInfo.dwPlatformId of
VER_PLATFORM_WIN32s:
begin
PlatformId := 'Windows 3.1';
end;
VER_PLATFORM_WIN32_WINDOWS:
begin
Reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersion', False);
PlatformId := Reg.ReadString('ProductName');
VersionNumber := Reg.ReadString('VersionNumber');
end;
VER_PLATFORM_WIN32_NT:
begin
Reg.OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersion', False);
PlatformId := Reg.ReadString('ProductName');
VersionNumber := Reg.ReadString('CurrentVersion');
end;
end;
Reg.Free;
Result := PlatformId + ' (version ' + VersionNumber + ')';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetWindowsVersion;
end;

//----------------------
gg :3183960
SZUKAM BETATESTERÓW - chętnych prosze o kontakt mail/gg

2. Platfaoma

var
 OS:TOsVersionInfo;
begin
 OS.dwOSVersionInfoSize:=SizeOf(os);
 GetVersionEx(os);
 case os.dwPlatformId of
  VER_PLATFORM_WIN32s: Caption:='WIN 3.1';
  VER_PLATFORM_WIN32_WINDOWS: Caption:='WIN 9598';
  VER_PLATFORM_WIN32_NT: Caption:='WIN NT';
 end;
end;

//----------------------
gg :3183960
SZUKAM BETATESTERÓW - chętnych prosze o kontakt mail/gg

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl