Devuelve el parámetro i pasado por la línea de comandos. Para recorrer todos los parámetros utilizaremos ParamCount. Ejemplo:
1 2 3 4 |
for i := 0 to ParamCount - 1 do begin parametro := ParamStr(i); end; |
Si Especificamos ParamStr(0) devolverá siempre la ubicación y el nombre del fichero ejecutable de nuetra aplicación.
Un 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 System