код "Рабочей папки"

[lmiol]

Я пишу прогу-ланчер для FF3 c заставкой и определенными параметрами!!!
у меня всё получилось , не могу лишь выставить рабочую папку - без неё никак там путь для рабочей папки экстеншина обязательный

"C:\Documents and Settings\Mio\Application Data\Mozilla\Firefox\Profiles\3x4rvczh.default\ext ensions\refractor@developer.mozilla.org\prism"

я использую вот этот код

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormActivate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$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_SHOW;
end;
if not createprocessa(nil,'firefox.exe -app application.ini -override "C:\Documents and Settings\Mio\Application Data\WebApps\quake.live2@prism.app\override.ini" -webapp quake.live2@prism.app -fullscreen',nil,nil,false,NORMAL_PRIORITY_CLASS, nil, nil,StartupInfo, ProcessInfo) then
messagebox(0,'Не найден firefox.exe','Ошибка',mb_iconerror);
 
  Form1.Close;
 end;
end.

без рабочей папки параметры запуска firefox.exe не работают!!!

[W0LF]

SetWorkingDirectory(PChar({рабочая папка}));

[lmiol]

а не подскажешь как в код вписать ?