z80 писал(а):
а как определяется XP? может просто по фразе XP попробовать? блин тестить не на чем виртуальную машину ставить придетсяOperating system | Version number | dwMajorVersion | dwMinorVersion |
Windows 8.1 | 6.3* | 6 | 3 |
Windows Server 2012 R2 | 6.3* | 6 | 3 |
Windows 8 | 6.2 | 6 | 2 |
Windows Server 2012 | 6.2 | 6 | 2 |
Windows 7 | 6.1 | 6 | 1 |
Windows Server 2008 R2 | 6.1 | 6 | 1 |
Windows Server 2008 | 6.0 | 6 | 0 |
Windows Vista | 6.0 | 6 | 0 |
Windows Server 2003 R2 | 5.2 | 5 | 2 |
Windows Home Server | 5.2 | 5 | 2 |
Windows Server 2003 | 5.2 | 5 | 2 |
Windows XP Professional x64 Edition | 5.2 | 5 | 2 |
Windows XP | 5.1 | 5 | 1 |
Windows 2000 | 5.0 | 5 | 0 |
------------ Дoбавленo в 21.29:
Проверка платформы Windows
Add(MainForm,2953706,231,182)
{
Height=102
Caption="Check the Widows platform"
link(onCreate,2383020:doEvent1,[])
}
Add(EnvVars,9602257,315,189)
{
Name="ProgramFiles(x86)"
Point(doGet)
Point(onGet)
link(onGet,2663107:doValue,[])
AddHint(-39,-54,98,13,Name)
}
Add(If_else,225603,364,245)
{
Type=5
Op2=String()
link(onTrue,11230536:doData,[])
link(onFalse,1183322:doData,[])
link(Op1,2663107:Value,[])
}
Add(DoData,11230536,441,245)
{
Data=String(Программа запущена на х64 системе)
link(onEventData,13793632:doWork2,[])
}
Add(DoData,1183322,420,252)
{
Data=String(Программа запущена на х86 системе)
link(onEventData,13793632:doWork3,[(515,258)])
}
Add(Label,7883768,546,245)
{
Left=15
Top=15
Height=28
Font=[MS Sans Serif,15,0,0,1]
}
Add(HubEx,13793632,511,245)
{
link(onEvent,7883768:doText,[])
}
Add(Hub,2383020,280,196)
{
link(onEvent1,9602257:doGet,[])
link(onEvent2,225603:doCompare,[(305,209)(305,251)])
}
Add(Memory,2663107,364,196)
{
Default=String()
}
Типа - прогресс-бар на иконке...
Add(MainForm,2953706,399,133)
{
Height=165
Caption="Пример использования IconGraph"
Point(doIcon)
link(onCreate,2299473:doAddTrayIcon,[(438,153)(438,125)])
}
Add(IconGraph,10342315,294,112)
{
Sensit=1
Style=3
ChannelsBar=0
MidColor=65280
MaxColor=65280
link(onIconGraph,1622501:doEvent1,[])
}
Add(Edit,576515,238,112)
{
Left=40
Top=85
Text="0"
link(onChange,10342315:doPosition1,[])
}
Add(ProgressBar,13726186,189,119)
{
Left=35
Top=55
Width=310
Smooth=1
ProgressColor=12639424
}
Add(TrackBar,12474913,105,112)
{
Left=30
Top=25
Width=315
Max=100
link(onPosition,3911145:doEvent1,[])
}
Add(Hub,3911145,161,112)
{
link(onEvent1,576515:doText,[])
link(onEvent2,13726186:doPosition,[])
}
Add(TrayIcon,2299473,455,98)
{
Point(doAddTrayIcon)
}
Add(Hub,1622501,336,112)
{
link(onEvent1,2299473:doIcon,[])
link(onEvent2,2953706:doIcon,[(361,125)(361,167)])
}
"Ищо" прогресс-бар на иконке
Add(MainForm,2953706,567,161)
{
Width=381
Height=140
Caption="Прогресс-бар на иконке"
Point(doIcon)
link(onCreate,5219806:doAddTrayIcon,[])
}
Add(AlphaBitmap,13970241,357,91)
{
HWidth=32
HHeight=32
FillColor=16777215
Point(doCreate)
Point(onCreate)
}
Add(GProgressBar,14328117,224,161)
{
Left=25
Top=65
Width=320
}
Add(TrackBar,13294378,133,147)
{
Left=25
Top=30
Width=325
Max=100
link(onPosition,13674949:doEvent1,[])
}
Add(Img_Gradient,1010168,308,154)
{
Point1=655362
Frame=1
FrameColor=1684625184
StartColor=65535
EndColor=255
Point(Point2)
link(onDraw,12377869:doDraw,[])
link(Bitmap,1855952:Var1,[(314,138)])
}
Add(MathParse,10315024,266,154)
{
MathStr="(22 * 65536) + ((31/100)*%1)"
ResultType=0
link(onResult,1010168:doDraw,[])
}
Add(Hub,13674949,182,147)
{
OutCount=4
link(onEvent1,13970241:doCreate,[(207,153)(207,111)])
link(onEvent2,10315024:doCalc,[])
link(onEvent3,14328117:doPosition,[])
link(onEvent4,8708600:doStrCat,[(214,174)(214,230)])
}
Add(DoData,14743081,483,189)
{
link(onEventData,6742088:doEvent1,[])
link(Data,128578:Icon,[])
}
Add(GetDataEx,1855952,357,133)
{
link(Data,13970241:Bitmap,[])
}
Add(Resize,14693580,406,154)
{
Width=16
Height=16
HalfTone=1
link(onResult,6464363:doEvent1,[])
link(Bitmap,1855952:Var3,[(412,138)])
}
Add(Icon,128578,483,140)
{
Point(doLoadFromBitmap)
}
Add(Hub,6464363,448,154)
{
link(onEvent1,128578:doLoadFromBitmap,[])
link(onEvent2,14743081:doData,[(474,167)(474,195)])
}
Add(Hub,6742088,539,189)
{
link(onEvent1,2953706:doIcon,[])
link(onEvent2,5219806:doIcon,[(606,202)(606,174)])
}
Add(TrayIcon,5219806,623,154)
{
Point(doAddTrayIcon)
}
Add(Img_Rectangle,12377869,357,154)
{
Point1=65537
Point2=2097184
rX=5
rY=5
Color=536870911
link(onDraw,14693580:doResize,[])
link(Bitmap,1855952:Var2,[])
}
Add(StrCat,8708600,231,224)
{
Str2=" % Прогресс-бар на иконке"
link(onStrCat,2953706:doCaption,[(539,230)(539,167)])
}