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:

procedure SaveListItemPosition(LVH : THandle; RemoteAddr : Pointer);
type
  TCharArray=array [0..MAX_PATH] of char;
  PCharArray=^TCharArray;
var
  lvi : TLVITEM;
  Text : TCharArray;
  Apoint : TPoint;

  nb : integer;
  i, ItemsCount : integer;

  RemLVI:PLVITEM;
  RemText:PCharArray;
  RemPoint:PPoint;
begin
  RemLVI:=RemoteAddr;
  RemText :=Pointer(Integer(RemLVI)+SizeOf(lvi));
  RemPoint:=Pointer(Integer(RemText)+SizeOf(Text));

  ItemsCount := SendMessage(LVH, LVM_GETITEMCOUNT, 0, 0);
  SetLength(DeskIcos,ItemsCount);

  ZeroMemory(@LVI,SizeOf(LVI));                                   //Init LVI
  lvi.cchTextMax := SizeOf(TCharArray)-1;
  lvi.iSubItem   :=0;
  lvi.pszText    := Pointer(RemText);
  WriteToRemoteBuffer(@LVI, Pointer(RemLVI), SizeOf(LVI));         //Sync LVI and RemLVI

  for i:=0 to ItemsCount-1 do
  begin
    nb := SendMessage(LVH, LVM_GETITEMTEXT, i, LParam(RemLVI));   //Get Text <-- Hier ist der fehlerhafte Aufruf
    if nb=0 then RaiseLastWin32Error();
    ReadRemoteBuffer(Pointer(RemText), @Text, nb+1);              //Sync Text and RemText

    FillChar(Apoint, SizeOf(Apoint), 0);                          //Reset Point
    WriteToRemoteBuffer(@APoint, Pointer(RemPoint), SizeOf(APoint));      //Sync Point and RemPoint
    SendMessage(LVH, LVM_GETITEMPOSITION, i, Integer(RemPoint));  //Get PointData
    ReadRemoteBuffer(Pointer(RemPoint), @Apoint, SizeOf(Apoint)); //Sync Point and RemPoint

    WriteLn(Text+' - '+Inttostr(APoint.X)+'-'+Inttostr(APoint.Y));//Write
    DeskIcos[i].Point:=APoint;
    DeskIcos[i].Name:=Text;
  end;
end;