VPF::Получить версию Windows и ее разрядность

ZBugz

Дата 21.9.2011, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Всем привет.
Не могу понять как в Delphi XE2 поучить версию Windows, а самое главное ее разрядность smile

Это виснет в цикле...

Код


function GetVersionEx(lpOs: pointer): BOOL; stdcall;
external 'kernel32' name 'GetVersionExA';
{$ENDIF}

procedure GetWindowsVersion(var Major: integer;
var Minor: integer);
var
{$IFDEF WIN32}
lpOS, lpOS2: POsVersionInfo;
{$ELSE}
l: longint;
{$ENDIF}
begin
{$IFDEF WIN32}
GetMem(lpOS, SizeOf(TOsVersionInfo));
lpOs^.dwOSVersionInfoSize := SizeOf(TOsVersionInfo);
while getVersionEx(lpOS) = false do begin
GetMem(lpos2, lpos^.dwOSVersionInfoSize + 1);
lpOs2^.dwOSVersionInfoSize := lpOs^.dwOSVersionInfoSize + 1;
FreeMem(lpOs, lpOs^.dwOSVersionInfoSize);
lpOS := lpOs2;
end;
Major := lpOs^.dwMajorVersion;
Minor := lpOs^.dwMinorVersion;
FreeMem(lpOs, lpOs^.dwOSVersionInfoSize);
{$ELSE}
l := GetVersion;
Major := LoByte(LoWord(l));
Minor := HiByte(LoWord(l));
{$ENDIF}
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Major: integer;
Minor: integer;
begin
GetWindowsVersion(Major, Minor);
Memo1.Lines.Add(IntToStr(Major));
Memo1.Lines.Add(IntToStr(Minor));
end;

Это сообщение отредактировал(а) ZBugz - 21.9.2011, 20:17

bems

Дата 22.9.2011, 06:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код

type
  PIsWow64Process = function (hProcess: THandle; var Wow64Process: BOOL): BOOL; stdcall;

function IsWin64: Boolean;
{$IFDEF MSWINDOWS}
  function IsWow64: BOOL;
  var
    IsWow64Process: PIsWow64Process;
  begin
    @IsWow64Process := GetProcAddress(GetModuleHandle(kernel32), 'IsWow64Process');
    Result := Assigned(@IsWow64Process);
    if Result and not IsWow64Process(GetCurrentProcess, Result)
       then RaiseLastOsError;
  end;

begin
  Result := (SizeOf(Pointer) = 8) or IsWow64;
end;
{$ELSE}
begin
  {$MESSAGE Error 'Not a Windows'}
end;
{$ENDIF !MSWINDOWS}

ХЕ2 еще не пробовал, но должно работать

Это сообщение отредактировал(а) bems - 22.9.2011, 10:27

--------------------

Обижено школьников: 8

Snowy

Дата 22.9.2011, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

ZBugz, код рабочий. Нужно только заменить GetVersionExA на GetVersionExW - юникод же!

bems, код работает без проблем, как в 32, так и в 64

ZBugz

Дата 22.9.2011, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

О, спасибо. Оба работают. От BEMS понравилось что компактно smile

Спасибо всем smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »