Escribir en archivos con Delphi

[[escafandra]]

Volviendo a la pregunta original, la forma general de escribir en un fichero sería algo como esto:

Código Delphi [-]
var
  hFile: integer;
  Buffer: PCHAR;
  Size: integer;
begin
   // abro para escribir
   hFile:= FileOpen('File.bin', fmOpenWrite);
   // Coloco el índice de archivo al final
   FileSeek(hFile, 0,2);
   // El Buffer y su tamaño
   Buffer:= PCHAR('Añado al final');
   Size:= lstrlen(Buffer);
   // Escribo el buffer
   FileWrite(hFile, Buffer^, Size);
   // Cierro el fichero
   FileClose(hFile);
end;

Escribir en un ejecutable, un archivo binario, datos en modo texto, no es buena idea, mejor escribirlos en modo binario.
El problema de escribir un login en el ejecutable es que es muy fácil de que lo vean los curiosos. Cuando lo hago, lo guardo en variables cuyo valor encripto previamente y uso una rutina para descifrar en mi programa.

Si lo haces al final del programa, tendrás que tener previsto un modo de localizar cuando empiezan tus datos, generalmente una firma colocada delante. No es sencillo que un ejecutable se modifique y se guarde así mismo. Otra forma es escribir en los recursos del mismo, más fácil de extraer después.


Saludos.