Window SubClassing另类运用（之二）[13]

              shgetspecialfolderlocation(awnd, csidl, pidl);

              str := getnamefrompidl(pidl);

              getsmalliconfrompidl(pidl, himl, iimage);

              imagelist_draw(himl, iimage, pdis^.hdc, pdis^.rcitem.left+2, pdis^.rcitem.top+2, ild_transparent);

              inc(pdis^.rcitem.left, 20);

              drawtext(pdis^.hdc, pchar(str), -1, pdis^.rcitem, dt_singleline or dt_left or dt_vcenter);

              cotaskmemfree(pidl);

           end

           else begin // normal path

              setlength(str, max_path);

              sendmessage(hcombo, cb_getlbtext, pdis^.itemid, longint(pchar(str)));

              str := pchar(str);

              getsmalliconfrompath(str, himl, iimage);

              imagelist_draw(himl, iimage, pdis^.hdc, pdis^.rcitem.left+2, pdis^.rcitem.top+2, ild_transparent);

              inc(pdis^.rcitem.left, 20);

              drawtext(pdis^.hdc, pchar(str), -1, pdis^.rcitem, dt_singleline or dt_left or dt_vcenter);

           end;

        end;

end;