Цитата:
|
Сообщение от NumLock
ну не я же буду в чужом коде разбираться, правильно?
|
спасибо, но всё ровно не работало, были пустые значения.
Но погуглив я узнал что всё из за того что моя система 64 битная. Поэтому чтобы всё работало нужно либо скомпилировать программу под 64 бита, либо использовать другую структуру данных LVItem.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | TLVItem64 = packed record
mask : LongWord;
iItem : LongInt;
iSubItem : LongInt;
state : LongWord;
stateMask : LongWord;
alignment1: LongWord;
pszText : Int64;
cchTextMax: LongInt;
iImage : LongInt;
lParam : Int64;
iIndent : LongInt;
iGroupId : LongInt;
cColumns : LongWord;
alignment2: LongWord;
puColumns : Int64;
piColFmt : Int64;
iGroup : LongInt;
alignment3: LongWord;
end;
|
с этой структурой всё работает