delphi 用UpdateResource修改EXE文件图标(已修正)

//请自行添加到 Type 处

PICONDIRENTRY = ^ICONDIRENTRY;

ICONDIRENTRY = packed record

bWidth: Byte;

bHeight: Byte;

bColorCount: Byte;

bReserved: Byte;

wPlanes: Word;

wBitCount: Word;

dwBytesInRes: DWORD;

dwImageOffset: DWORD;

end;

PICONDIR = ^ICONDIR;

ICONDIR = packed record

idReserved: Word;

idType: Word;

idCount: Word;

idEntries: ICONDIRENTRY;

end;

PGRPICONDIRENTRY = ^GRPICONDIRENTRY;

GRPICONDIRENTRY = packed record;

bWidth: Byte;

bHeight: Byte;

bColorCount: Byte;

bReserved: Byte;

wPlanes: Word;

wBitCount: Word;

dwBytesInRes: DWORD;

nID: Word;

end;

PGRPICONDIR = ^GRPICONDIR;

GRPICONDIR = packed record

idReserved: Word;

idType: Word;

idCount: Word;

idEntries: GRPICONDIRENTRY;

end;

//////////////////////////////////////////////

//函数说明：修改EXE图标

//! u% R! F5 H8 W. e- d& @

//参数：IconFile 图标文件

// ExeFile 被修改的EXE文件

//返回值：成功为True，否则False.

/////////////////////////////////////////////

function ChangeExeIcon(IcoFile, ExeFile: string): Boolean;

var

stID: ICONDIR;

stGID: GRPICONDIR;

pGrpIcon: PBYTE;

pIcon: PBYTE;

hUpdate: DWORD;

nSize, nGSize: DWORD;

hFile: THandle;

dwReserved: DWORD; * i' i)

ret: Boolean;

begin

Result := False;

hFile := CreateFile(PChar(IcoFile), GENERIC_READ, 0, nil, OPEN_EXISTING,

FILE_ATTRIBUTE_NORMAL, 0);

if hFile = INVALID_HANDLE_VALUE then

Exit;

try

ReadFile(hFile, stID, Sizeof(ICONDIR), dwReserved, nil);

nSize := stID.idEntries.dwBytesInRes;

GetMem(pIcon, nSize);

SetFilePointer(hFile, stID.idEntries.dwImageOffset, nil, FILE_BEGIN);

ReadFile(hFile, pIcon^, nSize, dwReserved, nil);

stGID.idType := 1;

stGID.idCount := stID.idCount;

stGID.idReserved := 0;

CopyMemory(@stGID.idEntries.bWidth, @stID.idEntries.bWidth, 12);

stGID.idEntries.nID := 0;

nGSize := Sizeof(GRPICONDIR);

GetMem(pGrpIcon, nGSize);

CopyMemory(pGrpIcon, @stGID, nGSize);

. y, i% c6 \' n

hUpdate := BeginUpdateResource(PChar(ExeFile), False);

try

ret := UpdateResource(hUpdate, RT_GROUP_ICON, MAKEINTRESOURCE(1), 0, pGrpIcon, nGSize);

ret := UpdateResource(hUpdate, RT_ICON, MAKEINTRESOURCE(1), 0, pIcon, nSize);

finally

EndUpdateResource(hUpdate, False);

end;

finally

CloseHandle(hFile);

end;3

Result := ret;

end;

推荐分享