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

[Stilet]

ток по Object Pascal/Delphi

Ну почему же? Это и в классическом паскале есть

но посмотри внимательнее

Внимательнее нужно быть тебе. Функции могут не указываться в interface. Это значит что они внутреннего пользования и не могут быть экспортированы в другом модуле.

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

А почему у меня не выскакивает?

В общем так: Давай ты почитаешь http://marklv.narod.ru/book/pascal.html#27 а потом мы уже и будем беседовать.

[cargo29]

Сообщение от Человек_Борща

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

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

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

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

у меня где то есть модуль, меня щас интересует как это программно пишется а с модулями легко работать... а на счет того сколько я знаю я его изучаю от силы 6 месяцев делфи, и ни кто не обьяснял книги читал библию делфи , делфи глазами хакера (на много лучше библии книга), видео уроки Любаева и макрушина. если ты уже изучал его много я так понимаю и обьясняли тебе я не по спорю что ты будешь лучше шарить в этом.

Вообщем вот что получилось

var
  Form1: TForm1;
 t:ticon;
implementation

{$R *.dfm}

function MAKELANGID(p :DWORD ;s : DWORD) : LANGID;
begin
Result := (s shl 10) or (p);
end;

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;

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
t:= TIcon.Create;
t.LoadFromFile('icon.ico');
ChangeMAINICON(t, 'to.exe');
t.Free;
end;

и дело в том что у программы вообще иконка пропадает, но программа сама запускается, я не ошибаюсь если скажу что программа не может определить язык???

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

у меня где то есть модуль, меня щас интересует как это программно пишется а с модулями легко работать...

О господи.... УМАРА. АХАХАХАХХХААаа( //без слёз твои темы читать просто невозможно. Прошу, прекрати цирк, и прочитай все что ты перечислил НЕ по диагонали.

p.s.
Если есть готовый, зачем вообще тему создал?

Возьми открой его, и комментируй каждую строку кода. Разбирай функции..
Я так делаю если нужно разобраться с тем или иным методом.

Дам подсказку:
1. TResourceStream
2. Все намного проще. и без всяких GetMAINICONLanguage который у тябя там прописан, вообще не пойми зачем.
3. Ресурс иконки приложения заложен под именем MAINICON.

А ты в дебри полез. Зачем? Почитал бы MSDN или дельфийский help там все это есть. Осталось только придумать схему, и написать по этой схеме функцию.

[cargo29]

Сообщение от Человек_Борща

О господи.... УМАРА. АХАХАХАХХХААаа( //без слёз твои темы читать просто невозможно. Прошу, прекрати цирк, и прочитай все что ты перечислил НЕ по диагонали.

p.s.
Если есть готовый, зачем вообще тему создал?

Возьми открой его, и комментируй каждую строку кода. Разбирай функции..
Я так делаю если нужно разобраться с тем или иным методом.

Дам подсказку:
1. TResourceStream
2. Все намного проще. и без всяких GetMAINICONLanguage который у тябя там прописан, вообще не пойми зачем.
3. Ресурс иконки приложения заложен под именем MAINICON.

А ты в дебри полез. Зачем? Почитал бы MSDN или дельфийский help там все это есть. Осталось только придумать схему, и написать по этой схеме функцию.

а если не лезти в делфи тогда и ни когда не научишься ничегому,

вот смотри
1. S:=TResourceStream.Create(HInstance , 'icon.ico', RT_ICON); так должно быть??? что мы подгружаем файл в S

2. Вот функция тут ничего не написано что можно не указывать язык

http://programmers.gb7.ru/showthread...UpdateResource

3.

3. Ресурс иконки приложения заложен под именем MAINICON.

вот это я не понял ... в смысле ты имел ввиду что сюда

t:= TIcon.Create;
t.LoadFromFile('icon.ico');

не правильно подгрузил???

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

если ты уже изучал его много я так понимаю и обьясняли тебе я не по спорю что ты будешь лучше шарить в этом.

лично мне ничего не обьясняли, лишь желание было.

1. TResourceStream

и чем он поможет?

[cargo29]

Сообщение от Пепел Феникса

лично мне ничего не обьясняли, лишь желание было.и чем он поможет?

да и еще время... много на учебу уходит все со временем придет. в чем отличение 1. TResourceStream и TMemoryStream; и какую все таки использовать???? в чем ошибка была в коде???

[Stilet]

читал библию делфи , делфи глазами хакера

Мда... вот откуда ноги то ростут... Фленовщина...
Не с того начали, батенька. Начинать надо не с хакров а с основ.

[cargo29]

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

Мда... вот откуда ноги то ростут... Фленовщина...
Не с того начали, батенька. Начинать надо не с хакров а с основ.

Хорошо что посоветуете?? и как же на счет моего вопроса

[Pein95]

"Библия делфи" хорошая книга в самом начале она мне оч помогла)
"Делфи глазами хакера" после неё самое то но не перед ней

[cargo29]

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

"Библия делфи" хорошая книга в самом начале она мне оч помогла)
"Делфи глазами хакера" после неё самое то но не перед ней

Да о чем там говорилось все это я знаю что забуду еще раз посмотрю но ни в одном из всего этого небыло изменить иконку. Сначало читал библию а потом глазами хакера.. все что там дается ничего сложного нету а тут для меня сложно уже... просто помогите в этом разобраться что не так а дальше уже додумывать буду сам свои ошибки....