VPF::Установить файл .inf - Форум программистов

SlaUr

Дата 1.10.2004, 07:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Есть надобность "установить" в систему файл с расширением "inf".
В проводнике это делается кликаньем правой кнопки мыши по файлу (вызовется контекстное меню к файлу) и выбрав пункт меню "Установить".
Может кто подскажет как это сделать средствами delphi (просто запуск файла не подходит)

Alex

Дата 1.10.2004, 07:25 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

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

Код

function sfn(const LongName: String): String;
// Возвращает LongFileName преобразованное в соответствующее короткое имя
var i :Integer;
begin
  SetLength(Result,Length(LongName));
  i := GetShortPathName(pChar(LongName),pChar(Result),Length(Result));
  if  i > Length(Result)  then begin
    SetLength(Result,i);
    i := GetShortPathName(pChar(LongName),pChar(Result),Length(Result));
  end;
  SetLength(Result,i);
end;

function InstallINF(hParent: HWND; const PathName: string): Boolean;
// Инсталляция INF файла
var
  instance: HINST;
begin  
  instance := ShellExecute(hParent,  
    PChar('open'),  
    PChar('rundll32.exe'),  
    PChar('setupapi,InstallHinfSection DefaultInstall 132 ' + sfn(PathName)),
    nil,  
    SW_HIDE);  

  Result := instance > 32;
end;

Это сообщение отредактировал(а) Alex - 1.10.2004, 07:25

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

SlaUr

Дата 1.10.2004, 08:02 (ссылка)

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

Загрузка ...

Опытный

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

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

Alex
Спасибо большое,нет сейчас под рукой delphi ,позже попробую.

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