更改图标对话框
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;
更多精彩
赞助商链接