1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

const res_max = 255;
var wnd:hwnd;
    i:integer;
    Info:TLVHitTestInfo;
    res:array[0..res_max+1] of char;
begin
  // Desktop Listview finden
  wnd :=  FindWindow('Progman', 'Program Manager');
  wnd :=  FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil);
  wnd :=  FindWindowEx(wnd, 0, 'SysListView32', nil);

  if wnd <> 0 then
  begin
    ZeroMemory(@info,sizeof(info));
    Info.pt:= Mouse.CursorPos;
    // Ist da was unter der Maus?
    i:= Listview_HitTest(wnd,Info);
    if i<>-1 then begin
      // Text holen
      ListView_GetItemText(wnd,i,0,Res,res_max);
      Caption:= res;
    end;
  end;