Hi,
ich benutze folgenden Code:
function GetDesktopListViewHandle: 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 Result := 0;
end;
var i:Integer;
Position:TPoint;
begin
ListView_GetItemPosition(GetDesktopListViewHandle, i, Position);
end;
Die x,y-Werte von Position bleiben immer 0, egal welchen Wert i hat (Ja es sind Desktopicons vorhanden...).
Warum bekomme ich nicht die Koordinaten der indizierten Icons?
Gruß
Michael
ich benutze folgenden Code:
function GetDesktopListViewHandle: 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 Result := 0;
end;
var i:Integer;
Position:TPoint;
begin
ListView_GetItemPosition(GetDesktopListViewHandle, i, Position);
end;
Die x,y-Werte von Position bleiben immer 0, egal welchen Wert i hat (Ja es sind Desktopicons vorhanden...).
Warum bekomme ich nicht die Koordinaten der indizierten Icons?
Gruß
Michael