Как я только не крутился что-бы вытащить от дуда данные...
Add(Button,16461994,105,294)
{
Left=10
Top=35
Width=370
Data=Integer(0)
link(onClick,11816708:doGet,[])
}
Add(Memo,12740452,238,294)
{
Left=10
Top=60
Width=370
Height=200
}
Add(Hub,717186,203,294)
{
link(onEvent1,12740452:doClear,[(227,300)(227,307)])
link(onEvent2,12740452:doAdd,[(227,307)(227,300)])
}
Add(InlineCode,11816708,154,294)
{
WorkPoints=#5:doGet|
EventPoints=#5:onOut|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|19: AFile: THandle;|16: AInfo: Pointer;|18: ABuffer: Pointer;|9: public|20: onOut:THI_Event;|50: procedure doGet (var _Data:TData; Index:word);|4: |5: end;|0:|14:implementation|0:|6: const|45: AIMPRemoteAccessClass = 'AIMP2_RemoteInfo';|37: AIMPRemoteAccessMapFileSize = 2048;|27: type NativeUInt=Cardinal;|6: type|45: PAIMPRemoteFileInfo = ^TAIMPRemoteFileInfo;|37: TAIMPRemoteFileInfo = packed record|23: Deprecated1: DWORD;|21: Active: LongBool;|19: BitRate: DWORD;|20: Channels: DWORD;|20: Duration: DWORD;|20: FileSize: Int64;|20: FileMark: DWORD;|22: SampleRate: DWORD;|23: TrackNumber: DWORD;|23: AlbumLength: DWORD;|24: ArtistLength: DWORD;|22: DateLength: DWORD;|26: FileNameLength: DWORD;|23: GenreLength: DWORD;|23: TitleLength: DWORD;|38: Deprecated2: array[0..5] of DWORD;|6: end;|0:|0:|28:procedure THiAsmClass.doGet;|5:begin|69:AFile := OpenFileMapping(FILE_MAP_READ, True, AIMPRemoteAccessClass);|80:AInfo := MapViewOfFile(AFile, FILE_MAP_READ, 0, 0, AIMPRemoteAccessMapFileSize);|68:ABuffer := Pointer(NativeUInt(AInfo) + SizeOf(TAIMPRemoteFileInfo));|0:|46:_hi_CreateEvent(_data, @onOut, string(AInfo));|1: |24:UnmapViewOfFile(AInfo); |19:CloseHandle(AFile);|44://_hi_CreateEvent(_data, @onOut, (ABuffer));|6:end; |4:end.|0:|
link(onOut,717186:doEvent1,[])
}
Лучшим моим достижением было, вытащить символ Х или М