Über Programm eine exe verändern!?

[bitsetter]

Hallo,

mit einem TFileStream könntest du andere Dateien editieren.

Delphi-Quellcode:

Type TText= record
  Text1, Text2: string[10];//Beispiel
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileStream: TFileStream;
  Text: TText;
  Pfad: AnsiString;
begin
  Pfad:= 'C:\Project1.exe';
  ZeroMemory(@Text, SizeOf(Text));
  if FileExists(Pfad) then
  begin
    FileStream:= TFileStream.Create(Pfad, fmOpenReadWrite);
    try
      FileStream.Position:= 100;//Beispiel Leseposition
      FileStream.Read(Text, SizeOf(Text));
       // Text.Text1:= .... weiterverarbeiten
      FileStream.Position:= 100;//Leseposition
      if FileStream.Write(Text, SizeOf(Text))= SizeOf(Text) then
        Showmessage('fertig');
    finally
      FileStream.Free;
    end;
  end;
end;