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

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario