1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

uses CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);

 function GetDskLVH: THandle;
 var s: string;
 begin
   Result := FindWindow('ProgMan', nil);
   Result := GetWindow(Result, GW_CHILD);
   Result := GetWindow(Result, GW_CHILD);
   SetLength(S, 40);
   GetClassName(Result, PChar(S), 39);
   if PChar(s) <> 'SysListView32' then begin
     MessageBox(0, 'Fehler bei Ermittlung des Desktophandles!', 'Fehler', 0);
     Result := 0;
   end;
 end;

var dwSize,dwNumberOfBytes,PID,hProcess:Cardinal;
    PLocalShared,PSysShared:PlvItem;
begin
  dwSize := SizeOf(LV_ITEM) + SizeOf(CHAR) * MAX_PATH;
  pLocalShared := VirtualAlloc(nil, dwSize, MEM_RESERVE + MEM_COMMIT,
    PAGE_READWRITE);
  GetWindowThreadProcessID(GetDskLVH, @PID);
  hProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or
    PROCESS_VM_WRITE, FALSE, PID);
  pSysShared := VirtualAllocEx(hProcess, nil, dwSize, MEM_RESERVE or MEM_COMMIT,
    PAGE_READWRITE);
  pLocalShared.mask := LVIF_TEXT;
  pLocalShared.iItem := 0;
  pLocalShared.iSubItem := 0;
  pLocalShared.pszText := LPTSTR(DWord(pSysShared) + SizeOf(LV_ITEM));
  pLocalShared.cchTextMax := 100;
  WriteProcessMemory(hProcess, pSysShared, pLocalShared, 1024,
    dwNumberOfBytes);
  SendMessage(GetDskLVH, LVM_GETITEM, 0, LPARAM(pSysShared));
  ReadProcessMemory(hProcess, pSysShared, pLocalShared, 1024,
    dwNumberOfBytes);

  Caption:=PChar(DWord(pLocalShared) + SizeOf(LV_ITEM));

  VirtualFree(pLocalShared, 0, MEM_RELEASE);
  VirtualFreeEx(hProcess, pSysShared, 0, MEM_RELEASE);
  CloseHandle(hProcess);
end;
// Copyright SmR 2002					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:

uses CommCtrl;

////////////////////////////////////////////////////////////////////////////////
// Durch die Verwendung von VirtualAllocEx() funktioniert dieser Code nur auf NT

procedure TForm1.Button1Click(Sender: TObject);
  // Diese Funktion ist zwar einfach, aber nicht sicher genug (WinXP)
  function GetDesktopListView(): HWND;
  var
    ClassName: string;
  begin
    Result := FindWindow('ProgMan', nil);
    Result := GetWindow(Result, GW_CHILD);
    Result := GetWindow(Result, GW_CHILD);
    SetLength(ClassName, 40);
    SetLength(ClassName, GetClassName(Result, PChar(ClassName), 39));
    if (ClassName <> 'SysListView32') then
    begin
      MessageBox(Self.Handle, 'Fehler bei Ermittlung des Desktophandles!',
        'Fehler', MB_ICONERROR or MB_OK);
      Result := 0;
    end;
  end;
var
  ListView: HWND;
  ProcessId: DWORD;
  Process: THandle;
  Size: Cardinal;      // SIZE_T
  MemLocal: Pointer;
  MemRemote: Pointer;
  NumBytes: Cardinal;  // SIZE_T
  IconIndex: Integer;
  IconLabel: string;
  IconPos: TPoint;
begin
  // Fensterhandle des Desktop-ListView ermitteln und Prozess oeffnen
  ProcessId := 0;
  ListView := GetDesktopListView();
  GetWindowThreadProcessId(ListView, @ProcessId);
  Process := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or
    PROCESS_VM_WRITE, False, ProcessId);
  if (Process <> 0) then
  try
    // Lokalen und entfernten (im Zielprozess) Puffer anlegen
    Size := SizeOf(TLVItem) + SizeOf(Char) * MAX_PATH + 1;
    MemLocal := VirtualAlloc(nil, Size, MEM_RESERVE or MEM_COMMIT,
      PAGE_READWRITE);
    MemRemote := VirtualAllocEx(Process, nil, Size, MEM_RESERVE or MEM_COMMIT,
      PAGE_READWRITE);
    if Assigned(MemLocal) and Assigned(MemRemote) then
    try
      // Anzahl der Symbole ermitteln und in einer Schleife durchlaufen
      for IconIndex := 0 to SendMessage(ListView, LVM_GETITEMCOUNT, 0, 0) - 1 do
      begin
        // Symboltext auslesen
        // (es gibt zwei identische Strukturen, jeweils eine in diesem und eine
        //  im Zielprozess. Wobei die Daten zwischen den Puffern hin und her
        //  kopiert werden muessen. Dieser Aufwand ist noetig, da LVM_GETITEM
        //  eine Struktur liest und schreibt, die sich im Adressraum des
        //  Prozesses befindet, dem das entsprechende Fenster gehoert...)
        ZeroMemory(MemLocal, SizeOf(TLVItem));
        with PLVItem(MemLocal)^ do
        begin
          mask := LVIF_TEXT;
          iItem := IconIndex;
          // Der Puffer fuer den Text liegt direkt hinter der TLVItem-Struktur
          pszText := LPTSTR(Cardinal(MemRemote) + Cardinal(SizeOf(TLVItem)));
          cchTextMax := MAX_PATH;
        end;
        NumBytes := 0;
        if WriteProcessMemory(Process, MemRemote, MemLocal, Size, NumBytes) and
          Boolean(SendMessage(ListView, LVM_GETITEM, 0, LPARAM(MemRemote))) and
          ReadProcessMemory(Process, MemRemote, MemLocal, Size, NumBytes) then
        begin
          IconLabel := string(
            PChar(Cardinal(MemLocal) + Cardinal(SizeOf(TLVItem))));
          // Position auslesen
          // (-1, -1 ist nur ein Indiz fuer einen Fehlschlag, da diese Position
          //  natuerlich moeglich ist...)
          IconPos.X := -1;
          IconPos.Y := -1;
          if Boolean(SendMessage(ListView, LVM_GETITEMPOSITION, IconIndex,
            LPARAM(MemRemote))) and ReadProcessMemory(Process, MemRemote,
            MemLocal, Size, NumBytes) then
          begin
            IconPos := PPoint(MemLocal)^;
          end;
          // Anzeige ;)
          Memo1.Lines.Add(IconLabel +
            ' [' + IntToStr(IconPos.X) + ', ' + IntToStr(IconPos.Y) + ']');
        end;
      end;
    except
      // Exceptions ignorieren
    end;
    // Aufraeumen
    if Assigned(MemRemote) then
      VirtualFreeEx(Process, MemRemote, 0, MEM_RELEASE);
    if Assigned(MemLocal) then
      VirtualFree(MemLocal, 0, MEM_RELEASE);
  finally
    CloseHandle(Process);
  end;
end;