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:
|
1 2 3 4 5 6 7 8 9 |
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
