如何更改图标对话框

时间:2010-03-03 17:32:45  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:/>procedure TForm1.Button1Click(Sender: TObject);varb:integer;str:array[0..MAX_PATH] of char;beginb:=0;if opendialog1.Execute thenbeginstrpcopy(str,opendialog1.filename);shChangeIconDialog(handle,str,0,b);end;showmessage(str);
  正文: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.002pc.com/master/College/Language/Delphi/13037.html


关键字:

关于《如何更改图标对话框》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td