VPF::Способ4 - Форум программистов

Poseidon

Дата 19.5.2005, 03:31 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Этот пример должен работать на всех версиях Windows

Код

{$IFDEF WIN32} 

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;

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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