ParamStr(i), ParamCount
Devuelve el parámetro i pasado por la línea de comandos. Para recorrer todos los parámetros utilizaremos ParamCount. Ejemplo:
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:
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
Funciones Delphi |