Autor Téma: Je verze Windows 32bit nebo 64bit  (Přečteno 282 krát)

Offline Viktor Marek

  • Mladík
  • **
  • Příspěvků: 73
  • Karma: 1
    • Verze Delphi: Delphi 5
Je verze Windows 32bit nebo 64bit
« kdy: 29-01-2018, 16:40:05 »
Jak mohu zjistit jaká verze Windows je na PC - 32bit nebo  64bit
Nepotřebuji zjišťovat zda se jedná o Windows 7, nebo Windows 10

Offline chaloup

  • Mladík
  • **
  • Příspěvků: 90
  • Karma: 9
    • Verze Delphi: Delphi 10.2

Offline Delfin

  • Guru
  • *****
  • Příspěvků: 781
  • Karma: 35
  • SW konzultant
    • Verze Delphi: 2009, Tokyo
Re:Je verze Windows 32bit nebo 64bit
« Odpověď #2 kdy: 29-01-2018, 17:44:36 »
Jak mohu zjistit jaká verze Windows je na PC - 32bit nebo  64bit
Nepotřebuji zjišťovat zda se jedná o Windows 7, nebo Windows 10

S Delphi 5?
I'm a soldier, so don't panic!

Offline Viktor Marek

  • Mladík
  • **
  • Příspěvků: 73
  • Karma: 1
    • Verze Delphi: Delphi 5
Re:Je verze Windows 32bit nebo 64bit
« Odpověď #3 kdy: 29-01-2018, 19:46:58 »
 Ano jde o Delphi 5 a kompilátoru se to nelíbí "TOVersion undeclared"

Offline < z >

  • Administrátoři
  • Guru
  • *****
  • Příspěvků: 1091
  • Karma: 41
    • Verze Delphi: 7, 2010
Re:Je verze Windows 32bit nebo 64bit
« Odpověď #4 kdy: 29-01-2018, 19:48:32 »
Good
Rated 1 time
Co takto? (c) internet

Kód: Delphi [Vybrat]
  1. function IsWin64: Boolean;
  2. var
  3.   IsWow64Process : function(hProcess : THandle; var Wow64Process : BOOL): BOOL; stdcall;
  4.   Wow64Process : BOOL;
  5. begin
  6.   Result := False;
  7.   IsWow64Process := GetProcAddress(GetModuleHandle(Kernel32), 'IsWow64Process');
  8.   if Assigned(IsWow64Process) then begin
  9.     if IsWow64Process(GetCurrentProcess, Wow64Process) then begin
  10.       Result := Wow64Process;
  11.     end;
  12.   end;
  13. end;

Offline chaloup

  • Mladík
  • **
  • Příspěvků: 90
  • Karma: 9
    • Verze Delphi: Delphi 10.2

Offline Viktor Marek

  • Mladík
  • **
  • Příspěvků: 73
  • Karma: 1
    • Verze Delphi: Delphi 5
Re:Je verze Windows 32bit nebo 64bit
« Odpověď #6 kdy: 29-01-2018, 20:28:41 »
Díky za pomoc - funguje i v Delphi 5

 

S rychlou odpovědí můžete používat BB kódy a emotikony jako v běžném okně pro odpověď, ale daleko rychleji.

Jméno: E-mail:
Ověření:
Datový typ v Delphi, který má True a False: