Hallo zusammen,
ich habe mich heute mal ein bisschen an
NonVCL probiert um mal ein kleines Tool zu schreiben aber leider hapert es am ListView:
Ich durchlaufe mittels RegEnumKeyEx die Registry und suche mir meine Schlüssel raus. Nun sollen bestimmte Schlüsselnamen zu einem Eintrag im ListView führen aber wenn ich in der bedingten Anweisung meinen Buffer mit dem Schlüsselnamen einbaue, werden keine SubItems mehr hinzugefügt:
Delphi-Quellcode:
//...
ZeroMemory(pBuf, pBufLen +1);
dwLen := pBufLen +1;
ret := RegEnumKeyEx(rkey, i, pBuf, dwLen, nil, nil, nil, nil);
if ret = ERROR_SUCCESS then
begin
if pBuf[0] = 'A' then //if true then -> Test2 erscheint im ListView
begin
lvi.mask := LVIF_TEXT;
lvi.iItem := i;
lvi.iSubItem := 0;
lvi.pszText := 'Test';
SendMessage(hwndLV, LVM_INSERTITEM, 0, LParam(@lvi));
lvi.iSubItem := 1;
lvi.pszText := 'Test2';
SendMessage(hwndLV, LVM_SETITEM, 0, LParam(@lvi));
end;
end
else
break;
Inc(i);
//...
Nun hoffe ich mir kann da jemand auf die Sprünge helfen.