Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Дисковое оборудование



Вернуться к списку функций
 Запуск autorun на диске

 Прислал: JJ Bat (Красноярск) ( 22 сентября 2007 г. )
©  моё :)
 Описание:
запускает файл, который должен запускаться на диске при автозапуске

 Зависимости:
ShellApi, shlobj, Inifiles

 Ограничения:
Во всех Окнах, D5-D7 точно работает

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Запуск autorun на диске

запускает файл, который должен запускаться на диске при автозапуске

Зависимости: ShellApi, shlobj, Inifiles
Автор:       JJ Bat, Красноярск
Copyright:   моё :)
Дата:        22 сентября 2007 г.
***************************************************************** }

AutorunDisk(DiskLetter: string); // путь к диску, например 'E:\'
var IniFile : TIniFile;
    PathToFile: String;
begin
  IniFile := TIniFile.Create(DiskLetter + 'autorun.inf');
  try
    // получим путь для запуска файла
    PathToFile:= DiskLetter + IniFile.ReadString('autorun', 'OPEN', '*none*');
    // если нет запускаемых файлов, то просто откроем диск в проводнике для обзора
    if PathToFile = DiskLetter + '*none*' then
      ShellExecute(handle, 'explore', Pchar(DiskLetter), nil, nil, SW_SHOWDEFAULT)
    else
      // запускаем файл
      ShellExecute(handle, 'open', Pchar(PathToFile), nil, nil, SW_SHOWNORMAL);

  finally
    IniFile.Free;
  end;
end;

 Пример использования:
AutorunDisk('E:\'); // запустить autorun на диске E


Вернуться к списку функций

Наверх ▲