Выполнить Firefox профиль из Delphi с переменными среды

Question

Для выполнения профилей в Firefox я использую этот код летучей мыши

@echo off
set MOZ_NO_REMOTE=1

"D:\Archivos de Programa\Firefox7\firefox.exe" -p "Light"

set MOZ_NO_REMOTE=1

Как я могу сделать то же самое из Delphi?

Я сделал это, но я не знаю, как установить переменные среды

var
  app:string;
begin
  app := '"D:\Archivos de Programa\Firefox7\firefox.exe" -p "Light"';
  WinExec(PChar(app), SW_SHOWNORMAL);
end;

я решил

вот код

function SetEnvVarValue(const VarName, VarValue: string): Integer;
begin
  // Simply call API function
  if SetEnvironmentVariable(PChar(VarName), PChar(VarValue)) then
    Result := 0
  else
    Result := GetLastError;
end;

так что использовать только то, что:

app := '"D:\Archivos de Programa\Firefox7\firefox.exe" -p "Light"';
SetEnvVarValue('MOZ_NO_REMOTE', '1');
WinExec(PChar(app), SW_SHOWNORMAL);
SetEnvVarValue('MOZ_NO_REMOTE', '1');

и это:)