2000于98有这么大得不同吗？（关于图标对话框） (100分)

怎么在2000下调用选择图标对话框？并返回图标文件名和所选择图标的index。
我在98下使用这段语句调用的好好的，可在2000下总是得不到图标文件名。
Function SHChangeIconDialog(hOwner:hwnd;szFilenamechar;Reserved:longint;
var lpIconIndex:Longint):Longint;stdcall;external 'shell32.dll' index 62;

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;