大大们,我这个傻瓜又在提问了,请您见谅哦 我想在程式中调用"更改图标"对话框,代码如下: < class="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function PickIconDlg(hwndOwner:HWND; lpstrFile:PChar;nMaxFile:DWORD; lpdwIconIndex: LPDWORD):BOOL;stdcall;external 'SHELL32.DLL' index 62; procedure TForm1.Button1Click(Sender: TObject); var PName: PChar; MaxFl,IcoIndex: Cardinal; NumIcon:Integer; hLIcon,hSIcon: THandle; begin if OpenDialog1.Execute then begin GetMem(PName,1024); StrCopy(PName,PChar(OpenDialog1.FileName)); MaxFl := 1023; IcoIndex := 0; if not PickIconDlg(Handle,PName,MaxFl,@IcoIndex) then Exit; NumIcon := ExtractIconEx(PName,IcoIndex,hLIcon,hSIcon,1); FreeMem(PName); DrawIcon(Canvas.Handle,250,43,hLIcon); end; end; end. 可是编译却过不了: [Warning] Unit1.pas(27): Symbol 'INDEX' is specific to a platform [Error] Unit1.pas(45): Types of actual and formal var parameters must be identical [Fatal Error] Porject1.dpr(5): Could not compile used "Unit1.pas" 编译器把错误停在了 NumIcon := ExtractIconEx(PName,IconIndex,hLIcon,hSIcon,1); 请大大们指出错误在那里及改正的办法,不省感激!!! 人生在勤，不索何获？

------
人生在勤，不索何获？

你好： 請你改紅色的部分 < class="code"> function PickIconDlg(hwndOwner:HWND; lpstrFile: PChar; nMaxFile: DWORD; lpdwIconIndex: LPDWORD): BOOL; stdcall; external 'SHELL32.DLL' index 62; procedure TForm1.Button3Click(Sender: TObject); var PName: PChar; MaxFl,IcoIndex: Cardinal; NumIcon:Integer; hLIcon,hSIcon: HICON; begin if OpenDialog1.Execute then begin GetMem(PName,1024); StrCopy(PName,PChar(OpenDialog1.FileName)); MaxFl := 1023; IcoIndex := 0; if not PickIconDlg(Handle,PName,MaxFl,@IcoIndex) then Exit; NumIcon := ExtractIconEx(PName,IcoIndex,hLIcon,hSIcon,1); FreeMem(PName); DrawIcon(Canvas.Handle,250,43,hLIcon); end; end;

hLIcon,hSIcon: THandle; 改 hLIcon,hSIcon: hIcon; 就可編譯了，因為是 var 所以 Type 一定要與 ExtractIconEx 宣告的完全相同，即 hIcon

谢谢ha0009和Justmade大大,小弟很感谢您们的回答 人生在勤，不索何获？

------
人生在勤，不索何获？