OS Version ermitteln

[Bummi]

"hathor" hat unter

http://www.delphi-forum.de/topic_Wie...m_99738,0.html etwas gepostet was funktioniert, letzter Post.

EDIT:

Damit könnte das Ende Deiner Prozedur IMHO so aussehen:

Delphi-Quellcode:

  Result := Result + ' Build: ' + IntToStr(osvi.dwBuildNumber);

  if IsWindows64 then Result := Result + ' 64-bit'   else Result := Result + ' 32-bit';

[Luckie]

Also das ist die Quelle http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx

Und das ist die Stelle:

Code:

if ( osvi.dwMajorVersion >= 6 )
      {
         if ( si.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_AMD64 )
            StringCchCat(pszOS, BUFSIZE, TEXT( ", 64-bit" ));
         else if (si.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_INTEL )
            StringCchCat(pszOS, BUFSIZE, TEXT(", 32-bit"));
      }

aus dem original Code. Habe ich da was falsch übersetzt oder stimmt der original Code schon nicht?

[Bummi]

Hast Du Dir den Link auf Hathors Lösung angeschaut

Delphi-Quellcode:

function GetNativeSystemInfo(var SystemInfo: TSystemInfo): Boolean;
type
  TGetNativeSystemInfo = procedure (var SystemInfo: TSystemInfo) stdcall;
var
  LibraryHandle: HMODULE;
  _GetNativeSystemInfo: TGetNativeSystemInfo;
begin
  Result := False;
  LibraryHandle := GetModuleHandle(kernel32);

  if LibraryHandle <> 0 then
  begin
    _GetNativeSystemInfo := GetProcAddress(LibraryHandle,'GetNativeSystemInfo');
    if Assigned(_GetNativeSystemInfo) then
    begin
      _GetNativeSystemInfo(SystemInfo);
      Result := True;
    end
    else
      GetSystemInfo(SystemInfo);
  end
  else
    GetSystemInfo(SystemInfo);
end;

[Luckie]

In wie fern sollte das mein Problem lösen?

[Bummi]

vielleicht hab ich ja etwas missverstanden aber mit o.g. Funktion werden bei mir die 64-Bit richtig erkannt.

[Luckie]

Das müsste dieser Stelle im original Code entsprechen:

Code:

// Call GetNativeSystemInfo if supported or GetSystemInfo otherwise.

   pGNSI = (PGNSI) GetProcAddress(
      GetModuleHandle(TEXT("kernel32.dll")), 
      "GetNativeSystemInfo");
   if(NULL != pGNSI)
      pGNSI(&si);
   else GetSystemInfo(&si);

Da war ich etwas unsicher, wie ich das übersetzen sollte und habe es weggelassen. Muss ich das wohl noch implementieren.

[Luckie]

OK, Habe die Funktion übernommen. Bitte noch mal testen. Sollte jetzt auch Unicode fähig sein.

[Neutral General]

Hallo,

Hast (leider) immernoch den (kleinen) Fehler drin:

Delphi-Quellcode:

case ProductType of
  //..
  PRODUCT_BUSINESS:
       Result := Result + ' rocessExefileBusiness Edition';

(Wobei der natürlich im Vergleich zu den anderen Problemen eher keine so hohe Priorität hat^^)

[Bummi]

Nur weil Du's bist, eine EXE mach ich sonnst nicht auf. :thumb: Passt.

[Jens Hartmann]

Jetzt geht´s

Gruß Jens