WEB开发网
开发学院软件开发Delphi 更改图标对话框 阅读

更改图标对话框

 2006-02-04 13:41:25 来源:WEB开发网   
核心提示: SHChangeIconDialog(hwnd,filename,0,index);function SHChangeIconDialog;external 'shell32.dll' index 62;function SHChangeIconDialog(h:hwnd;filename:pchar
 

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;

Tags:更改 图标 对话框

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接