Получить путь к директории Program Files

Советы » Каталоги » Получить путь к директории Program Files

uses

Registry; function

GetProgramFilesDir: string

; var

reg: TRegistry; begin

reg := TRegistry.Create; try

reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersion', False); Result := reg.ReadString('ProgramFilesDir'); finally

reg.Free; end

; end

; procedure

TForm1.Button1Click(Sender: TObject); begin

// Shows something like c:Program files // zeigt "c:Programme" (oder ahnlich) ShowMessage(GetProgramFilesDir); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com