VPF::путь с "%ProgramFiles%" - Форум программистов

kирилл

Дата 7.7.2006, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 82
Регистрация: 19.5.2005

Репутация: нет
Всего: нет

Надо запустить программу. Данные берутся из реестра, а там записано (например для OutlookExpress) "%ProgramFiles%\Outlook Express\msimn.exe" . Если подставить эту строку, то ничего не получается, т.е. надо ее преобразовать к абс. адресу (например, С:\Program Files\Outlook Express\msimn.exe). Так как узнать , где находится этот ""%ProgramFiles%"?

M
Girder

Поиск... http://forum.vingrad.ru/index.php?act=Search&f=2

volvo877

Дата 7.7.2006, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

kирилл, использовать GetEnvironmentVariable('ProgramFiles') пробовал?

Poseidon

Дата 7.7.2006, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код


function GetDOSEnvVar(const VarName: string): string;
var
  i: integer;
begin
  Result := '';
  try
    i := GetEnvironmentVariable(PChar(VarName), nil, 0);
    if i > 0 then
      begin
        SetLength(Result, i);
        GetEnvironmentVariable(Pchar(VarName), PChar(Result), i);  
      end;
  except
    Result := '';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:= GetDOSEnvVar('ProgramFiles');
ShowMessage(s)
end;

Добавлено @ 16:03
Еще можно в том же реестре посмотреть тут:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Akella

Дата 10.7.2006, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Код


type
  TSystemPath=(Desktop, StartMenu, Programs, ProgramFiles, Startup, Personal, winroot, winsys, WinTemp);
  TfmMain = class(TForm)
.....




....
Function TfmMain.GetSystemPath(SystemPath:TSystemPath):string;
 var
 p:pchar;
 Buffer: array[0..1023] of Char;
begin
 with TRegistry.Create do
   try
     RootKey := HKEY_CURRENT_USER;
     OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', True);
     case SystemPath of
        Desktop : Result := ReadString('Desktop');
      StartMenu : Result := ReadString('Start Menu');
       Programs : Result := ReadString('ProgramFiles');
        Startup : Result := ReadString('Startup');
       Personal : Result := ReadString('Personal');
        WinTemp : SetString(Result, Buffer, GetTempPath(Sizeof(Buffer)-1,Buffer));
        Winroot : begin
                   GetMem(p,255);
                   GetWindowsDirectory(p,254);
                   result:=Strpas(p);
                   Freemem(p);
                  end;//winroot
         WinSys : begin
                   GetMem(p,255);
                   GetSystemDirectory(p,254);
                   result:=Strpas(p);
                   Freemem(p);
                  end;//winsys
    ProgramFiles: begin
                  CloseKey;
                  RootKey := HKEY_LOCAL_MACHINE;
                  OpenKey('\Software\Microsoft\Windows\CurrentVersion', FALSE);
                  Result:=ReadString('ProgramFilesDir');
                  if Result = '' then Result:='C:\Program Files\';
                  end;
     end;//case
   finally
     result := IncludeTrailingPathDelimiter(result);
     CloseKey;
     free;
   end;//try-finally

end;

Добавлено @ 09:54

Код


//пример использования
slArcFile.SaveToFile(fmMain.GetSystemPath(WinTemp)+'ToSend.List');

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »