VPF::ScrlOpFill - Форум программистов

Budy

Дата 13.4.2004, 06:36 (ссылка)

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

Загрузка ...

Опытный

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

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

:Приветствую.
Подскажите, в какой библиотеке имеется ScrlOpFill и где взять? Заранее спасибо.

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Akella

Дата 13.4.2004, 08:55 (ссылка)

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

Загрузка ...

Творец

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

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

Откуда у тебя это, ты хотябы дал немек, и для чего это используется. Желательно задавать более полные вопросы. Ведь какой вопрос - такой и ответ. Помни об этом.

Budy

Дата 13.4.2004, 12:49 (ссылка)

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

Загрузка ...

Опытный

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

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

Помоему, эта функция выдает версию оси, т.е.: XP, 98, 95 и т.п.

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Akella

Дата 15.4.2004, 13:39 (ссылка)

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

Загрузка ...

Творец

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

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

Вот пример(вообще их несколько), а вообщ скачай FAQ.

Код


Type TOSVersion=(osUnknown, osUnknown9x, osUnknownNT, osWin95, osWin98, osWin98SE, osWinME, osWinNT, osWin2000, osXP); 

function GetOSVersion : TOSVersion; 
var osVerInfo : TOSVersionInfo; 
 majorVer, minorVer : Integer;  
 
  
begin 
 result := OsUnknown;  
 
 osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);  
 
 if GetVersionEx(osVerInfo) then  
 
  
 begin  
 
  
 majorVer := osVerInfo.dwMajorVersion;  
 
 minorVer := osVerInfo.dwMinorVersion;  
 
 case osVerInfo.dwPlatformId of  
 
  
 VER_PLATFORM_WIN32_NT :  
 
  
 Case majorVer of  
 
  
 4:result := OsWinNT;  
 
 5:if minorVer=0 then result := OsWin2000  
 
  
 else   
 
  
 if minorVer=1 then result := OsXP else result := osUnknownNT;  
 
  
 else result := osUnknownNT;  
 
  
 end; {Case majorVer of}  
 
  
 VER_PLATFORM_WIN32_WINDOWS :  
 
  
 case majorVer of  
 
  
 4: Case minorVer of  
 
 0:result := OsWin95;  
 
 10: if osVerInfo.szCSDVersion[1] = 'A' then result := OsWin98SE else result := OsWin98;  
 
 90: result := OsWinME;  
 
 else result := osUnknown9x;  
 
  
 end;{Case minorVer of}  
 
  
 else result := osUnknown9x;  
 
  
 end{case majorVer of}  
 
  
 else result := OsUnknown;  
 
 end;{case osVerInfo.dwPlatformId of}  
 
 end;{if GetVersionEx(osVerInfo) then}  
 
  
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
 case GetOSVersion of  
 
  
 osUnknown: Showmessage('Unknown');  
 
 osWin95: Showmessage('Win95');  
 
 osWin98: Showmessage('Win98');  
 
 osWin98SE: Showmessage('Win98SE');  
 
 osWinME: Showmessage('WinME');  
 
 osWinNT: Showmessage('WinNT');  
 
 osWin2000: Showmessage('Win2000');  
 
 osXP: Showmessage('XP');  
 
  
 end;  
 
  
end;

Автор Vit

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