Delphi-Help

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