Locked sMyPathExMetal [Ported to Delphi] [version mejorada]

[Expermicid]

[lenguaje=delphi](*

Fecha: 5-10-2012

Función mejorada y acortada

Reparado bug al medir longitud del resultado

*)

Function sMyPathExMetal():String;

var

sParams: String;

L: Byte;

begin

SetLength(sParams, MAX_PATH);

L:= GetModuleFileName(0, PChar(sParams), MAX_PATH);

SetLength(sParams, L);

SetLength(Result, L);

Result := sParams;

end;[/lenguaje]

 

Autor: Metal_Kingdom

Edited February 16, 2014 by Expermicid