Ver Mensaje Individual
  #3  
Antiguo 20-05-2019
wonderDev wonderDev is offline
Registrado
 
Registrado: dic 2015
Posts: 9
Reputación: 0
wonderDev Va por buen camino
Escribir Bytes !

Cita:
Empezado por Casimiro Notevi Ver Mensaje
Hola, ¿cómo lo escribiste? muestra tu código y explica exactamente dónde tienes la duda.

Hola Casimiro, gracias por responder. El codigo que tengo para escribir algunos bytes viene quedando mas o menos asi:


Código Delphi [-]
procedure TfrmMain.cxButton1Click(Sender: TObject);
var
  vClientStream: TFileStream;
  var nombre: String;
begin

  vClientStream := TFileStream.Create('C:\Juegos\buscaminas.exe', fmOpenReadWrite);

  nombre := 'Casimiro';

  try
    //vClientStream.Position := 0;
    vClientStream.Seek(0, 0);
    vClientStream.WriteBuffer(nombre, Length(nombre));
  finally
    vClientStream.Free;
  end;

end;


Lo que sucede es que con ese codigo corrompo ese .exe, pero necesito de alguna forma volver a deshacer eso. O si tienen alguna idea mejor pues la utilizaria.
Responder Con Cita