Delphi-Help

Главная Статьи CD-ROM Запуск autorun на диске

Запуск autorun на диске

Оцените материал
(0 голосов)


Запуск autorun на диске

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
Прочитано 5192 раз
Другие материалы в этой категории: « Как заблокировать/разблокировать CDRom?

Авторизация



Счетчики