Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Надо запустить разные функции на разних виндах.   Найти похожие ветки 

← →
DeMoN-777 ©   (2002-06-17 16:31) [0]

Приветствую мастаков !
Такая трабла возникла..
Надо запустить разные функции на разних виндах.
Вопрос:
Как объяснить программе следующее:

if Win95\98\me then
begin
Моя процедура 1
...............
end;


If WinNT\2000\Xp then
begin
Моя процедура 1
...............
end;

Ну вот в принципе и вся трабла.

---

← →
Pat ©   (2002-06-17 17:47) [1]


var data:OSVERSIONINFO;
Winda:string;
begin
data.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
GetVersionEx(data);
Winda:="Unknown";
case data.dwPlatformId of
VER_PLATFORM_WIN32s:Winda:="Windows 3.11";
VER_PLATFORM_WIN32_WINDOWS:
begin
if data.dwMajorVersion>=4 then
begin
if data.dwMinorVersion<10 then Winda:="Windows 95 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;
if data.dwMinorVersion>=10 then
if data.szCSDVersion[1]="A" then
Winda:="Windows 98 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
" SE"
else
Winda:="Windows 98 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;

if data.dwMinorVersion>=90 then Winda:="Windows ME "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;
end;
end;
VER_PLATFORM_WIN32_NT:
begin
if data.dwMajorVersion<=4 then Winda:="Windows NT "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;;
if data.dwMajorVersion=5 then
begin
if data.dwMinorVersion=0 then Winda:="Windows 2000 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;;
if data.dwMinorVersion>=1 then Winda:="Windows XP "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;;
end;
end;

end;
messagebox(handle,pchar(Winda),"OS",0);



---

← →
Игорь Шевченко ©   (2002-06-18 09:47) [2]

uses
SysUtils;

if Win32Platform = VER_PLATFORM_WINDOWNS then
MyProcedureYYY
else if Win32Platform = VER_PLATFORM_WIN32_NT then
MyProcedureXXX;

Pat © (17.06.02 17:47)

RTL Delphi при запуске приложения уже все определяет, можно не изобретать велосипед.

---

← →
DeMoN-777 ©   (2002-06-18 13:05) [3]

Большое спасибо всем откликнувшимся !

---

Страницы: 1 вся ветка

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c