выполнить профиль Firefox из Delphi с переменными среды - PullRequest
Новая
       14

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

2 голосов
/ 02 февраля 2012

Для выполнения профилей в 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');

и это:)

...