网站 › 『 编程之美 』 › 更改图标对话框

Moodsky 发表于 2007-2-12 10:07:57

更改图标对话框

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 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;

czs208112 发表于 2008-3-22 16:55:21

/:010 看不懂啊。/:010

查看完整版本: 更改图标对话框