Código: Seleccionar todo

////////////////////////////////////////////////////////////////////////////
//Autor: Metal_Kingdom                                                    //
//Autor original (VB6): M3 -> http://foro.udtools.net/showthread.php?6104 //
//Fecha: 17/05/2012                                                       //
//Web: udtools.net                                                        //
//Otros créditos: delphibasics.co.uk ; rhinocerus.net ;                   //
////////////////////////////////////////////////////////////////////////////

Function sMyPathExMetal():string;
var
sParams: array of string;
newlength, i: integer;
sMyPathExMetal: string;
sPath: cardinal;
begin
setLength(sParams, newLength);
  For i := 0 To Length(sMyPathExMetal) do
    begin
      sParams[0] := stringofchar(' ',256);
      sPath := GetModuleFileName(i, pchar(sParams[0]), 256);
      Result := sParams[i];
    end;
end;