SysListView32 выдергивание текста

[StartMis]

по примеру http://www.programmersforum.ru/showp...72&postcount=9 пытаюсь вытащить текст из SysListView32. все работает но вот только кирилицу не отображает выводит ??????? почему и как с этим бороться? делфи 7 и win 7.

[FaTaL]

А где Ваш код? Для вывода попробуйте не string, а WideString, т.к. в винде по умолчанию Unicode

[StartMis]

мой код почти такой же как в примере. только добавил memo1.Lines.Add(st)

var
vItemCount: Integer; 
i: Integer;
vBuffer: array[0..255] of Char; 
vProcessId: DWORD; 
vProcess: THandle;
vPointer: Pointer; 
vNumberOfBytesRead: Cardinal;
vItem: TLVItem;
St: WideString;
begin
vItemCount := SendMessage(hList2, LVM_GETITEMCOUNT, 0, 0); 


GetWindowThreadProcessId(hList2, @vProcessId);

vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, vProcessId);

vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
 
try
for I := 0 to vItemCount - 1 do begin 
with vItem do begin
mask := LVIF_TEXT; 
iItem := I;
iSubItem := 0; 
cchTextMax := SizeOf(vBuffer);
pszText := Pointer(Cardinal(vPointer) + SizeOf(TLVItem)); 
end;
WriteProcessMemory(vProcess, vPointer, @vItem, SizeOf(TLVItem), vNumberOfBytesRead);
SendMessage(hList2, LVM_GETITEM, I, lparam(vPointer));

ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)), @vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead);
 
St := vBuffer;
memo1.Lines.Add(st)



end { - for - }
finally
VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);
CloseHandle(vProcess) 
end;
end;

WideString не чего не дал.
сейчас проверил на диспетчере задач кирилицу выводит. а например с msinfo32 нет

[Пепел Феникса]

у меня мысль только в том что надо проверять, какого типа окно, Юникод или нет.
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[StartMis]

Пепел Феникса и что нам даст проверка окна на Юникод?

[Пепел Феникса]

я думаю окно в сообщении возвращает в той кодировке в которой находится окно.