Вверх ↑
Ответов: 4298
Рейтинг: 667
#1: 2016-09-05 14:46:01 ЛС | профиль | цитата
Выдаёт что-то непонятное:


Add(MainForm,2953706,21,105)
{
Position=1
}
Add(Button,10504036,217,203)
{
Left=135
Top=5
Caption="Get temp"
link(onClick,11970995:doGetTemp,[])
}
Add(InlineCode,11970995,287,203)
{
WorkPoints=#9:doGetTemp|
EventPoints=#8:onResult|
DataPoints=#8:HDDIndex|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|28: Windows, KOL, Share, Debug;|0:|4:type|29: THiAsmClass = class(TDebug)|11: private|0:|10: public|26: HDDIndex: THI_Event;|29: onResult: THI_Event; |57: procedure doGetTemp(var _Data: TData; Index: Word);|6: end;|0:|14:implementation|0:|3:var|30: Ip: array [0..$1F] of Byte =|55: ($00,$02,$00,$00,$D0,$01,$01,$4F,$C2,$A0,$B0,$00,$00,|55: $00,$00,$00,$8C,$FD,$14,$00,$00,$02,$00,$00,$03,$00,|28: $00,$00,$03,$00,$00,$00);|1: |48:function GetHDDTemperarure(Nhdd: Byte): Integer;|4:type|39: TSmartData = array [0..$20F] of Byte;|3:var|16: Op: TSmartData;|12: H: THandle;|11: br: DWORD;|5:begin|89: H := CreateFile(PChar('\\.\PhysicalDrive' + Int2Str(Nhdd)), $C0000000, 3, nil, 3, 0, 0);|15: if H <> 0 then|6: begin|63: DeviceIoControl(H, $0007C088, @Ip, $20, @Op, $210, br, nil);|18: CloseHandle(H);|37: Result := Op[$A8] * $FF + Op[$A7];|4: end|5: else|15: Result := 0;|4:end;|0:|0:|63:procedure THiAsmClass.doGetTemp(var _Data: TData; Index: Word);|3:var|13: I: Integer;|5:begin|39: I := ReadInteger(_Data, HDDIndex, 0);|58: _hi_CreateEvent(_Data, @onResult, GetHDDTemperarure(I));|4:end;|0:|0:|4:end.|
link(onResult,10659795:doText,[])
link(HDDIndex,15129361:Text,[])
}
Add(Edit,15129361,287,154)
{
Left=75
Top=5
Text="0"
}
Add(Label,10659795,357,203)
{
Left=200
Top=10
Width=11
Height=17
Caption="T"
}
Add(Label,11901701,21,154)
{
Left=20
Top=10
Width=54
Height=17
Caption="HDD num:"
}
карма: 22

0