更改圖標對話框

　　SHChangeIconDialog(hwnd,filename,0,index);

　　function SHChangeIconDialog;external 'shell32.dll' index 62;

　　function SHChangeIconDialog(h:hwnd;filename:pchar; Reserved:integer;var index:integer):integer;stdcall;

　　{

　　procedure TForm1.Button1Click(Sender: TObject);

　　var

　　b:integer;

　　str:array[0..MAX_PATH] of char;

　　begin

　　b:=0;

　　if opendialog1.Execute then

　　begin

　　strpcopy(str,opendialog1.filename);

　　shChangeIconDialog(handle,str,0,b);

　　end;

　　showmessage(str);

　　end;

　　}

　　function SHChangeIconDialog(h:hwnd;filename:pchar; Reserved:integer;var index:integer):integer;stdcall;