//我正有这样的程序,能在98下运行，在XP下有问题。 下面是它的片段：
//得到图标的坐标,名称,图标索引
//uses Commctrl,ShellAPI
procedure TForm1.Button1Click(Sender: TObject);
var
h,hFile,hFileMap,hFile2,hFileMap2: THandle;
i,j: integer;
sFileName,sFileName2: string;
pFileMap,pFileMap2: Pointer;
c: TPoint;
aItem: LV_ITEM;
TempDir: Array[0..255] of Char;
begin
h:=FindWindow('Progman','Program Manager');
h:=GetWindow(h,GW_CHILD);
h:=GetWindow(h,GW_CHILD);
Form1.ListView1.Items.Clear;
j:=Listview_GetItemCount(h);
If j = 0 Then exit;
GetTempPath(256, TempDir);
sFileName:=TempDir+'TEMP.1';
hFile:=CreateFile(PChar(sFileName),
GENERIC_READ Or GENERIC_WRITE,
0,
nil,
OPEN_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);
hFileMap:=CreateFileMapping(hFile, nil, PAGE_READWRITE, 0, 40, 'MyMapping');
pFileMap:=MapViewOfFile(hFileMap, FILE_MAP_WRITE, 0, 0, 0);
sFileName2:=TempDir+'TEMP.2';
hFile2:=CreateFile(PChar(sFileName2),
GENERIC_READ Or GENERIC_WRITE,
0,
nil,
OPEN_ALWAYS,
FILE_ATTRIBUTE_NORMAL,
0);
hFileMap2:=CreateFileMapping(hFile2, nil, PAGE_READWRITE,0, 40, 'MyMapping2');
pFileMap2:=MapViewOfFile(hFileMap2, FILE_MAP_WRITE, 0, 0, 0);
for i:=0 to j-1 do
begin
ListView1.Items.Add;
ListView1.Items.Item.Caption:=inttostr(i);
SendMessage(h, LVM_GETITEMPOSITION, i, LPARAM(pFileMap));
CopyMemory(@c, pFileMap, 8);
ListView1.Items.Item.SubItems.Add(inttostr(c.x));
ListView1.Items.Item.SubItems.Add(inttostr(c.y));
aItem.mask:=LVIF_TEXT;
aItem.iItem:=i;
aItem.pszText:=pFileMap2;
aItem.cchTextMax:=40;
CopyMemory(pFileMap, @aItem, 40);
SendMessage(h, LVM_GETITEMTEXT, i, LPARAM(pFileMap));
CopyMemory(@aItem, pFileMap, 40);
ListView1.Items.Item.SubItems.Add(aItem.pszText);
aItem.mask:=LVIF_IMAGE;
aItem.iItem:=i;
aItem.pszText:=pFileMap2;
aItem.cchTextMax:=40;
CopyMemory(pFileMap, @aItem, 40);
SendMessage(h, LVM_GETITEM, i, LPARAM(pFileMap));
CopyMemory(@aItem, pFileMap, 40);
ListView1.Items.Item.SubItems.Add(inttostr(aItem.iImage));
end;
FlushViewOfFile(pFileMap, 40);
UnmapViewOfFile(pFileMap);
CloseHandle(hFileMap);
CloseHandle(hFile);
FlushViewOfFile(pFileMap2, 40);
UnmapViewOfFile(pFileMap2);
CloseHandle(hFileMap2);
CloseHandle(hFile2);
End;
