更改图标对话框

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;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!