uses  
ShellAPI;
 
function geticon(filepath:string):ticon;
var
  ico:ticon;
begin
  if not FileExists(FilePath) then begin ShowMessage('文件不存在'); Exit; end;
  ico := TIcon.Create;
  ico.Handle:=ExtractIcon(HInstance, PChar(FilePath), 0);
  result:=ico;
  //ico.Free;
end;
arrow
arrow
    文章標籤
    Delphi ICO
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄