AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Resourcen Editieren

Ein Thema von seppi.tm · begonnen am 3. Jul 2007 · letzter Beitrag vom 3. Jul 2007
Antwort Antwort
seppi.tm

Registriert seit: 3. Jul 2007
44 Beiträge
 
#1

Resourcen Editieren

  Alt 3. Jul 2007, 13:42
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???
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: Resourcen Editieren

  Alt 3. Jul 2007, 17:41
Dazu gibt es die Funktionen BeginUpdateResource, UpdateResource & EndUpdateResource.
Bei Google suchenBeginUpdateResource AND delphi
Andreas
  Mit Zitat antworten Zitat
3. Jul 2007, 18:18
Dieses Thema wurde von "SirThornberry" von "Sonstige Fragen zu Delphi" nach "Windows API / MS.NET Framework API" verschoben.
Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Resourcen Editieren

  Alt 3. Jul 2007, 23:53
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;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:24 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