как оформить директиву компилятора Win XP, Win 7, Win 8

[Аватар]

http://stackoverflow.com/questions/1...server-2008-r2

[beegl]

что-то тестировал функцию, на 8.1, и не понимает 8.1 Виндовс, подскажите, что изменить в функции?

результат функции: Label1.Caption := ' '; - т.е. ничего не выдало,
а на ХР тестил - Label1.Caption := ' Windows XP'; результат

function  TForm1.WindowsVersFx: string;
var
  VerInfo: TOsVersionInfoExA;
begin
  FillChar(VerInfo, sizeof(VerInfo), 0);
  VerInfo.old.dwOSVersionInfoSize := Sizeof(TOsVersionInfoExA);
  if not GetVersionExA(VerInfo.old) then
  begin
    VerInfo.old.dwOSVersionInfoSize := Sizeof(TOsVersionInfoA);
    GetVersionExA(VerInfo.old);
  end;
  case VerInfo.old.dwPlatformId of
    VER_PLATFORM_WIN32_WINDOWS:
      if (Verinfo.old.dwMajorVersion = 4) and
        (Verinfo.old.dwBuildNumber = 950) then
        Result := 'Windows 95'
      else if (Verinfo.old.dwMajorVersion = 4) and
        (Verinfo.old.dwMinorVersion = 10) and
        (Verinfo.old.dwBuildNumber = 1998) then
        Result := 'Windows 98'
      else if (Verinfo.old.dwMinorVersion = 90) then
        Result := 'Windows Me';
    VER_PLATFORM_WIN32_NT:
      if Verinfo.old.dwMajorVersion = 3 then
        Result := 'Windows NT 3.51'
      else if Verinfo.old.dwMajorVersion = 4 then
        Result := 'Windows NT 4.0'
      else if Verinfo.old.dwMajorVersion = 5 then
        if Verinfo.old.dwMinorVersion = 0 then
          Result := 'Windows 2000'
        else if Verinfo.old.dwMinorVersion = 1 then
          Result := 'Windows XP';
      else if Verinfo.old.dwMajorVersion = 6 then
        if Verinfo.old.dwMinorVersion = 0 then
          Result := 'Windows 7'
        else if Verinfo.old.dwMinorVersion = 1 then
          Result := 'Windows 8' 
        else if Verinfo.old.dwMinorVersion = 2 then //что исправить надо?
          Result := 'Windows 8.1';
       end;
  end;

[Человек_Борща]

Идентификация Windows в гугле
//OFF
Однако интересный метод программирования наблюдаю...
Практическое применение фееричной идеи школьников "вы думайте, а я пенку сдувать буду".
Так и здесь: я вам код, вым не решение, и не "пожалуйста" а "требую"

[beegl]

Человек_Борща, что-то у ХР окно нормально отображается, а у 8-й надо Width и Height надо увеличить до 6-ти, чтоб граници были на ровне

делал так OnCreate используя модуль из этого поста

if (label6.Caption = 'Windows 8 Professional 32-bit') or (label6.Caption = 'Windows 8 Professional 64-bit') then
begin
IntertelecomForm.Height := 175; // для Windows 8 увеличил Height + 6
IntertelecomForm.Width := 309; // для Windows 8 увеличил Width + 6
end else
if label6.Caption = 'Windows XP Professional' then
begin
IntertelecomForm.Height := 169;
IntertelecomForm.Width := 302;
end;

[Пепел Феникса]

Сообщение от beegl

Человек_Борща, что-то у ХР окно нормально отображается, а у 8-й надо Width и Height надо увеличить до 6-ти, чтоб граници были на ровне

делал так OnCreate используя модуль из этого поста

у Win8 иные бордюры, потому всл и нагибается, видимо версия делфи у вас старая.
(я просто писал приложение на АПИ что работает от ХП до 8-ки, и у меня у всех окон одна область отображения выходила, так что по хорошему там не нужен платформозависимый код)