Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
Du greifst vorher mehrfach auf
si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64
zu.
EDIT
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
@Luckie
nimm das
GetNativeSystemInfo(si);
an den Anfang hoch sonst wird XP64 Bit als Server2003 deklariert.
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
Vielleicht wg. Serviepack2
http://capitalhead.com/articles/how-to-find-build-and-revision-number-of-windows-vista-or-windows-server-2008-installed.aspx
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
Nur weil Du's bist, eine EXE mach ich sonnst nicht auf. :thumb: Passt.
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
vielleicht hab ich ja etwas missverstanden aber mit o.g. Funktion werden bei mir die 64-Bit richtig erkannt.
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
Hast Du Dir den Link auf Hathors Lösung angeschaut
function GetNativeSystemInfo(var SystemInfo: TSystemInfo): Boolean;
type
TGetNativeSystemInfo = procedure (var SystemInfo: TSystemInfo) stdcall;
var
LibraryHandle: HMODULE;
_GetNativeSystemInfo: TGetNativeSystemInfo;
begin
Result := False;
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
die Stelle ist klar
if (osvi.dwMajorVersion >= 6) then
begin
if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) then
Result := Result + ' 64-bit'
else if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL) then
Result := Result + ' 32-bit';
end;
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
Sorry ich war zu schnell
Project2
Windows Server 2008 R2 Enterprise Edition Build: 7600 32-bit
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
Ich weiß nicht was auf einem Chinesischen System passiert unter Delphi XE und o.g. System läuft es so.
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
TOSVersionInfoEx = packed record
dwOSVersionInfoSize: DWORD;
dwMajorVersion: DWORD;
dwMinorVersion: DWORD;
dwBuildNumber: DWORD;
dwPlatformId: DWORD;
szCSDVersion: array of WideChar;
wServicePackMajor: Word;
wServicePackMinor: Word;
wSuiteMask: Word;
Forum: Win32/Win64 API (native code)
by Bummi,
30. Nov 2010
Server 2008R2 Enterprise
Project2
Der an einen Systemaufruf übergebene Datenbereich ist zu klein