ExtractFilePath (rutaynombrefichero)

Extráe sólo la carpeta (directorio) de una cadena de texto especificada. Por ejemplo:

De la cadena:

E:\Programas\Escaneador de puertos\EscaneoPuertos.exe

dará como resultado:

E:\Programas\Escaneador de puertos\

Ejemplo de uso:

procedure TformMenuPrincipal.FormCreate(Sender: TObject);
var
  fichero : string;
begin
  iniciado := false;
  fichero := ExtractFilePath(ParamStr(0)) + 'ips.txt';
  if FileExists(fichero) then
    txtIP.Items.LoadFromFile(fichero);
end;

Unidad SysUtils

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario