Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Resourcen Editieren (https://www.delphipraxis.net/95222-resourcen-editieren.html)

seppi.tm 3. Jul 2007 13:42


Resourcen Editieren
 
Hallo ich habe ein programm programmiert in dem ich eine textdatei in die resourcen eingebunden habe das programm läd diese datei in eine memo ....
jetzt will ich ein 2. programm programmieren das diese exe öffnet und man den text editieren kann und dann abspeichern kann mir jemand helfen???

shmia 3. Jul 2007 17:41

Re: Resourcen Editieren
 
Dazu gibt es die Funktionen BeginUpdateResource, UpdateResource & EndUpdateResource.
Bei Google suchenBeginUpdateResource AND delphi

DP-Maintenance 3. Jul 2007 18:18

DP-Maintenance
 
Dieses Thema wurde von "SirThornberry" von "Sonstige Fragen zu Delphi" nach "Windows API / MS.NET Framework API" verschoben.

bitsetter 3. Jul 2007 23:53

Re: Resourcen Editieren
 
Hallo,

wie ich das so sehe, brauchst du die Ressource gar nicht in das andere Programm einbinden, denn das macht UpdateResource gleich mit.
In das Programm welches praktisch gepatcht werden soll habe ich folgenden Code eingefügt:
Delphi-Quellcode:
var
  ResStream: TResourceStream;
begin
  ResStream:= TResourceStream.Create(HINSTANCE, 'MYTEXT', RT_RCDATA);
  try
    memo1.Lines.LoadFromStream(ResStream);
  finally
    ResStream.Free;
  end;
Dazu muss die Ressource natürlich schon vorhanden sein.

Das Programm welches die fremde Ressource editiert hat diesen Code:
Delphi-Quellcode:
var
  Pfad: AnsiString;
  hInst: cardinal;
begin
   Pfad:= 'C:\Test.exe';
   if FileExists(Pfad) then
   begin
     hInst := BeginUpdateResource(Pchar(Pfad), false);
     if hInst > 0 then
       try
         UpdateResource(hInst, RT_RCDATA, 'MYTEXT', LANG_NEUTRAL, @memo1.Text[1], length(memo1.Text));
       finally
         EndUpdateResource(hInst, false);
       end;
   end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz