Locked mWriteFileFromStr [By Metal]

[Expermicid]

[lenguaje=delphi]Procedure mWriteFileFromStr(Cadena, Ruta: string);

var

sFile: HFile;

uBytes: Cardinal;

begin

sFile:= _lcreat(PChar(Ruta), 0);

uBytes:= Length(Cadena);

_lwrite(sFile, @Cadena[1], uBytes);

_lclose(sFile);

end;[/lenguaje]

 

Autor: Metal_Kingdom

Edited February 16, 2014 by Expermicid