Delphi 纯Api提取并保存文件ICO图标
作者:小坏 日期:2012-01-13
使用方法
procedure TForm1.Button1Click(Sender: TObject);
var
Handle :HICON;
Image :Pointer;
lpSize :DWORD;
dwBytes :DWORD;
hFile :THandle;
begin
Handle := ExtractIcon(HInstance, 'D:\Embarcadero\RAD Studio\9.0\bin\bds.exe', 0);
Image := GetMemory(250000);
WriteIcon(Image, Handle, False, @lpSize);
hFile := CreateFile('D:\用户文件夹\桌面\2.ico', GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
if (hFile <> INVALID_HANDLE_VALUE) then
begin
WriteFile(hFile, Image^, lpSize, dwBytes, nil);
CloseHandle(hFile);
end;
end;
分类:网络编程 | 查看次数: 20