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);varb:integer;str:array[0..MAX_PATH] of char;beginb:=0;if opendialog1.Execute thenbeginstrpcopy(str,opendialog1.filename);shChangeIconDialog(handle,str,0,b);end;showmessage(str);end;}function SHChangeIconDialog(h:hwnd;filename:pchar; Reser