Параметры запуска приложения

[lmiol]

Я использую

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormActivate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;

begin
FillChar(StartupInfo, sizeof(StartupInfo), 0);
with StartupInfo do begin
cb := Sizeof(StartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_HIDE;
end;
if not createprocessa(nil,'firefox.exe -app application.ini -override "C:\Documents and Settings\Mio\Application Data\WebApps\quake.live@prism.app\override.ini" -webapp quake.live@prism.app',nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil,StartupInfo, ProcessInfo) then
messagebox(0,'Не найдено приложение firefox.exe','Ошибка запуска',mb_iconerror);

  Form1.Close;
 end;
end.

для приложения Firefox.exe работает параметр "-app application.ini -override "C:\Documents and Settings\Mio\Application Data\WebApps\quake.live@prism.app\o verride.ini" -webapp quake.live@prism.app"
в данном параметре указан прямой путь к пользователю Mio
а как указать путь к любому пользователю через тэг типа как в Inno setup, вот пример:

{userappdata}\id Software\quakelive\home\baseq3\demos

(где {userappdata} - C:\Documents and Settings\Имя пользователя\Application Data\)