nach res update kein icon merh?
hallo wenn ich mit folg. code ein res update durchführe verschwindet das exe icon!?
woran liegt das?
Delphi-Quellcode:
[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]
procedure TForm1.suiButton2Click(Sender: TObject);
var I:Integer; H, Size, FH, BR:DWORD; Local:String; Buf:Pointer; aRes : TResourceStream; begin if not (files.items.Count=0) then if sd.Execute then begin try aRes:=TResourceStream.Create(hInstance,'MAIN','STUB'); aRes.SaveToFile(sd.filename+'.exe'); ares.Free; Local:= ExtractFilePath(ParamStr(0)); H:= BeginUpdateResource(PChar(sd.filename+'.exe'), True); FH:= CreateFile(PChar('c:\test.exe'), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Size:= GetFileSize(FH, nil); GetMem(Buf, Size); ReadFile(FH, Buf^, Size, BR, nil); CloseHandle(FH); UpdateResource(H, RT_RCDATA, PChar(UpperCase(ExtractFileName(readini('xxx',files.items[i].caption)))), MAKEWord(LANG_NEUTRAL, SUBLANG_NEUTRAL), Buf, Size); FreeMem(Buf); EndUpdateResource(H, False); except application.messagebox( 'Datei konnte nicht erstellt werden!','Fehler',16) end; end; end; |
Re: nach res update kein icon merh?
keine eine idee woran das liegt, bzw. eine lösung?
|
Re: nach res update kein icon merh?
Das Icon, einer Anwendung liegt auch in der Ressource. Vielleicht hast du es durch deine Änderung gelöscht.
|
Re: nach res update kein icon merh?
ja, nach dem update ist es nicht mehr in der res date, habe mit dem program "reshacker" nach geschaut - nur woran liegt das?
habe auch schon probiert das icon updzudaten (mit mad lib usw.) hat aber alles nichts gebracht! |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:23 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz