如何在delphi中編寫並提取exe文件裏面的ICO圖標

提取 exe 文件裏面的 ICO 圖標，通常可以 WinAPI 函數 ExtractIcon，以下是示例代碼：

procedure?TForm1.RzBitBtn1Click(Sender:?TObject);

var?iCount:?Integer;

begin

if?OpenDialog1.Execute?then

begin

Edit1.Text?:=?OpenDialog1.FileName;

iCount?:=?ExtractIcon(HInstance,?PChar(OpenDialog1.FileName),?$FFFFFFFF);

if?iCount>0?then

begin

Label2.Caption?:=?Format('當前?EXE?文件中***包含?%d?個?ICON?資源。',[iCount]);

Image1.Picture.Icon.Handle?:=?ExtractIcon(HInstance,PChar(OpenDialog1.FileName),0);

end?else

begin

Label2.Caption?:=?'當前?EXE?文件中不包含?ICON?資源。';

end;

end;

end;

運行效果截圖：

上一篇:個舊北大青鳥:編程入門培訓的理想場所

下一篇:21款奧德賽儀表盤設置