Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как попасть в ProgramFiles, Как попасть в ProgramFiles 
:(
    Опции темы
Андрей СС
Дата 22.11.2004, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Добрый день,
Помогите пожалуйста попасть в ProgramFilesDir программно в Делфин.
Как GetWindowsDirectory(dir,256);, есть что-нибудь?
Заранее благодарен.
PM MAIL   Вверх
Андрей СС
Дата 22.11.2004, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Уже сам догадался ))
все равно спаисбо!!!

GetEnvironmentVariable('ProgramFiles');
PM MAIL   Вверх
Girder
Дата 22.11.2004, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


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

Репутация: 25
Всего: 155
Еще можно вот так:
Код
uses ... ShlObj,ActiveX;
...
const
CSIDL_PROGRAM_FILES=$0026;

function GetFolderPath(nFolder:Integer):String;
var pidlItself:PItemIDList;
   s:string;
   hr:HResult;
   M:IMAlloc;
   i:integer;
begin
Result:='';
hr:=SHGetSpecialFolderLocation(0,nFolder,pidlItself);
if Succeeded(hr) then
 begin
  SetLength(s,MAX_PATH*10);
  if SHGetPathFromIDList(pidlItself,PChar(s)) then
   begin
    i:=Pos(#0,s);
    if i=0 then i:=Length(s);
    Result:=trim(copy(s,1,i));
   end;
  SHGetMAlloc(M);
  M.Free(pidlItself);
 end;
end;


Использование: Caption:=GetFolderPath(CSIDL_PROGRAM_FILES);


--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
SoWa
Дата 17.12.2004, 06:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


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

Репутация: 2
Всего: 74
Может я не так понял, но если надо открыть папку PF, то подключи модуль ShellApi и используй Shellexecute.


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0629 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.