Как сменить иконку у любого файла ЕХЕ

[cargo29]

Как программно сменить иконку у любого файла ЕХЕ??? именно надо программно.. без всяких модулей

нашел тут юнит и посмотрел код он беред иконку из одного ЕХЕ и меняет ее у другого ЕХЕ

Можно ли ее как то переделать???

unit MainIcon;

interface

uses Windows;
function ChangeMAINICON(SourceExe, TargetExe: String): Boolean;
implementation
////////////////////////////////////////////////////////////////////////////////
// Аналог макроса MAKELANGID в С++ //
// Возвращает языковой идетификатор //
////////////////////////////////////////////////////////////////////////////////
function MAKELANGID(p :DWORD ;s : DWORD) : LANGID;
begin
Result := (s shl 10) or (p);
end;
////////////////////////////////////////////////////////////////////////////////
// Функция GetMAINICONLanguage получает имя exe-файла и возвращает //
// языковой идетификатор его главной иконки //
////////////////////////////////////////////////////////////////////////////////
function GetMAINICONLanguage(const sFileName: String): LANGID;
// Функция обратного вызова. Вызывается для каждого языкового
// идентификатора данного ресурса. В lParam ей передаю указатель на переменную,
// в которую возвратится результат.
function EnumResLangProc(hModule: THandle; lpszType: PChar;
lpszName: PChar; wIDLanguage: WORD;
lParam: Pointer): BOOL; stdcall;
begin
PWORD(lParam)^ := wIDLanguage;
Result := False; // После первого вызова сразу прекращаем перебор,
// т.к. не видел ни одной проги с разными иконками под разные языки
end;

var hExe: THandle;
begin
hExe := LoadLibrary(PChar(sFileName)); // Загружаю файл.
// Запускаю перебор языков главной иконки
EnumResourceLanguages(hExe, RT_ICON, MakeIntResource(1),
@EnumResLangProc, LPARAM(@Result));
FreeLibrary(hExe); // Выгружаю файл
end;
////////////////////////////////////////////////////////////////////////////////
// ::: Функция ChangeMAINICON ::: //
// //
// Зачада: Изменяет главную иконку целевого exe-файла, на главную //
// иконку исходного файла путем правки ресурсов. //
// (пока под главной иконкой подразумевается иконка //
// с индексом = 1) //
// //
// Входные данные: SourceExe, TargetExe - текстовые строки с путями к //
// исходному и целевому exe-фаайлам. //
// //
// Выходные данные: True - замена иконки произошла успешно, //
// False - ошибка, замена не произошла. //
////////////////////////////////////////////////////////////////////////////////
function ChangeMAINICON(SourceExe, TargetExe: String): Boolean;
var
hResLoad, hRes: HRSRC;
hExe, hUpdateRes: THandle;
lpResLock: PChar;
begin
Result := False;
// Загружаем источник иконки как библиотеку (с ресурсами)
hExe := LoadLibrary(PChar(SourceExe));
if hExe = 0 then Exit;
try
// Ищем в источнике главную иконку
hRes := FindResource(hExe, MakeIntResource(1), RT_ICON);
if hRes = 0 then Exit;
// Загружаем иконку
hResLoad := LoadResource(hExe, hRes);
if hResLoad = 0 then Exit;
// Лочим ресурс иконки. Получаем указатель не ее данные.
lpResLock := LockResource(hResLoad);
if lpResLock = nil then Exit;
// Открываем TargetExe для редактирования ресурсов
hUpdateRes := BeginUpdateResource(PChar(TargetExe), False);
if hUpdateRes = 0 then Exit;
// Заменяем главную иконку TargetExe на SourceExe
if UpdateResource(hUpdateRes, RT_ICON, MakeIntResource(1),
GetMAINICONLanguage(PChar(TargetExe)), // ???
lpResLock, SizeofResource(hExe, hRes)) = False then Exit;
// Сохраняем сделанные изменения
Result := EndUpdateResource(hUpdateRes, False);
finally
// В любом случае закрываем открытый SourceExe
FreeLibrary(hExe);
end;
end;
////////////////////////////////////////////////////////////////////////////////


end.

[Stilet]

именно надо программно.. без всяких модулей

А то что модуль это и есть программа тебя не смущает?
Не нравится в модуле - просто возьми описание и реализацию процедур и помести их в свое приложение (которое тоже к твоему сведению является модулем).

[cargo29]

Сообщение от Stilet

А то что модуль это и есть программа тебя не смущает?
Не нравится в модуле - просто возьми описание и реализацию процедур и помести их в свое приложение (которое тоже к твоему сведению является модулем).

где бы взять это еще?*?? мне надо что бы я брал обычный фалй icon.ico и меняю иконку у любого ЕХЕ а тут обмен состоит между ЕХЕ , а остальное не смущает.... в этих модулях идут обычные функции делфи вот и хочу узнать их как с помощью них менять иконки.

Вот эти функции испльзуются в этом модуле который я выложил...

http://www.vsokovikov.narod.ru/New_M...e/func_res.htm

но я не могу понять как переделать это все что бы брать не из Ехе файла иконку.

Поможете или нет???

[Пепел Феникса]

function ChangeMAINICON(I:TIcon, TargetExe: String): Boolean;
var
hUpdateRes: THandle;
S:TMemoryStream;
begin
Result := False;
try
 S:=TMemoryStream.Create;
 I.SaveToStream(S);
 hUpdateRes := BeginUpdateResource(PChar(TargetExe), False);
 if hUpdateRes = 0 then Exit;
 if UpdateResource(hUpdateRes, RT_ICON, MakeIntResource(1),GetMAINICONLanguage(PChar(TargetExe)),S.Memory, S.Size) = False then Exit;
 Result := EndUpdateResource(hUpdateRes, False);
finally
 S.Free;
end;
end;

ну примерно так, в чем проблема то была?
там же комментарии были довольно подробные.

[cargo29]

Ага понял я не работал толком с ресурсами еще.... уже 3 форума обошел по этому вопросу.. не думал что можно использовать TMemoryStream а вот еще вопрос там функция в юните GetMAINICONLanguage она как то интересно там написана

function GetMAINICONLanguage(const sFileName: String): LANGID;
// Функция обратного вызова. Вызывается для каждого языкового
// идентификатора данного ресурса. В lParam ей передаю указатель на переменную,
// в которую возвратится результат.
function EnumResLangProc(hModule: THandle; lpszType: PChar;

2 раза сразу задается функция

[Stilet]

2 раза сразу задается функция

Неа. Ниразу не угадал. И не задается а описывается. Обрати внимание - первое ее упоминание идет в разделе interface а второе уже в implementation.
Так что бери книгу по элементарному паскалю и читай о том как описываются процедуры и функции в модулях

[Пепел Феникса]

ток по Object Pascal/Delphi

[cargo29]

Сообщение от Stilet

Неа. Ниразу не угадал. И не задается а описывается. Обрати внимание - первое ее упоминание идет в разделе interface а второе уже в implementation.
Так что бери книгу по элементарному паскалю и читай о том как описываются процедуры и функции в модулях

Это я понял, уже пробовал писать юниты, но посмотри внимательнее функция определения языка упоминается только один раз

unit MainIcon;

interface

uses Windows;
function ChangeMAINICON(SourceExe, TargetExe: String): Boolean;
implementation
////////////////////////////////////////////////////////////////////////////////
// Аналог макроса MAKELANGID в С++ //
// Возвращает языковой идетификатор //
////////////////////////////////////////////////////////////////////////////////
function MAKELANGID(p :DWORD ;s : DWORD) : LANGID;
begin
Result := (s shl 10) or (p);
end;
////////////////////////////////////////////////////////////////////////////////
// Функция GetMAINICONLanguage получает имя exe-файла и возвращает //
// языковой идетификатор его главной иконки //
////////////////////////////////////////////////////////////////////////////////
function GetMAINICONLanguage(const sFileName: String): LANGID;
// Функция обратного вызова. Вызывается для каждого языкового
// идентификатора данного ресурса. В lParam ей передаю указатель на переменную,
// в которую возвратится результат.
function EnumResLangProc(hModule: THandle; lpszType: PChar;
lpszName: PChar; wIDLanguage: WORD;
lParam: Pointer): BOOL; stdcall;
begin
PWORD(lParam)^ := wIDLanguage;
Result := False; // После первого вызова сразу прекращаем перебор,
// т.к. не видел ни одной проги с разными иконками под разные языки
end;

в интерфейсе нету определения языка эта функция уже идет внутри.

и вот еще вот давали тут код

function ChangeMAINICON(I:TIcon, TargetExe: String): Boolean;
var
hUpdateRes: THandle;
S:TMemoryStream;
begin
Result := False;
try
 S:=TMemoryStream.Create;
 I.SaveToStream(S);
 hUpdateRes := BeginUpdateResource(PChar(TargetExe), False);
 if hUpdateRes = 0 then Exit;
 if UpdateResource(hUpdateRes, RT_ICON, MakeIntResource(1),GetMAINICONLanguage(PChar(TargetExe)),S.Memory, S.Size) = False then Exit;
 Result := EndUpdateResource(hUpdateRes, False);
finally
 S.Free;
end;
end;

выскакривает ошибка

PHP код:

[Error] Unit1.pas(59): ';', ')' or '=' expected but ',' found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas' 


я ее не вижу.... уже 20 раз пробовал переписать все знаки все буквы... может вы увидите?

[cargo29]

Stilet Пепел Феникса Вы тут??? ))))

[Человек_Борща]

cargo29, я поражуюсь твоему стремлению изучить тот язык, о котором ты даже книгу ни разу н прочёл.
Элементарного не знаешь!

function ChangeMAINICON(I:TIcon, TargetExe: String): Boolean;

что поставить, подумай сам.

p.s. чисто из принципа не буду давать модуль для смены иконки exe из файла.