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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Включить автозапуск съёмных дисков, программно 
V
    Опции темы
ShadowDancer
Дата 19.5.2006, 21:49 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Как программно включить автозапуск съёмных дисков ?

Добавлено @ 22:00 
А вобще возможно ли на съёмных дисках запускать autorun.inf ? 
  Вверх
Guedda
Дата 20.5.2006, 00:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Хм... Ошибка -  в 17 строке... Подробнее могёшь? 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Sunvas
Дата 20.5.2006, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(ShadowDancer @  19.5.2006,  21:49 Найти цитируемый пост)
А вобще возможно ли на съёмных дисках запускать autorun.inf ? 

Ну, открывай этот файл как обыкновенный ini файл и ищи значение параметра run. Потом простым winexec-ом запускай... 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
ShadowDancer
Дата 21.5.2006, 08:56 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Меня интересует: возможен ли самостоятельный запуск autorun.inf, как на CD дисках ?
Если да, то как включить программно ? 
  Вверх
Sunr1se
Дата 21.5.2006, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 6
Всего: 13
Я у себя сейчас попробовал - не проходит такой трюк, не авторанится smile 
--------------------
IRC-канал Винграда 
PM MAIL ICQ   Вверх
Nickel
Дата 21.5.2006, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 4
А вот так?
Код

uses IniFiles;

function ExecAutoRun(Drive:string):Boolean;
var
  Ini: TIniFile;
begin
    Result:=False;
    SetCurrentDirectory(PChar(Drive));
    Ini := TIniFile.Create(Drive + 'AutoRun.inf' );
    if WinExec(PChar(Ini.ReadString( 'autorun', 'open', '')),SW_SHOW) > 31 then Result:=True;
    Ini.Free;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
if ExecAutoRun('G:\') then ShowMessage('Сработало')
else ShowMessage('Не сработало')
end;
 
PM   Вверх
Sunvas
Дата 21.5.2006, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(ShadowDancer @  21.5.2006,  08:56 Найти цитируемый пост)
Меня интересует: возможен ли самостоятельный запуск autorun.inf, как на CD дисках ?
Если да, то как включить программно ? 

Такие файлы не запускаются!!! Они служат всего-то лишь информационными файлами для винды, чтобы та знала где находиться ехе файл, который нужно запустить, и где иконка, которую нужно подставить. 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
ShadowDancer
Дата 21.5.2006, 18:28 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Цитата(Sunvas @  21.5.2006,  16:43 Найти цитируемый пост)
Такие файлы не запускаются!!! Они служат всего-то лишь информационными файлами для винды, чтобы та знала где находиться ехе файл, который нужно запустить, и где иконка, которую нужно подставить. 

Во-во, это я и имел ввиду. Мне не нужен запуск autorun.inf, мне нужно чтобы запускался файл прописаный там. Кстати, иконка подставляется, а запуска нету.
 
  Вверх
Sunvas
Дата 22.5.2006, 07:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(ShadowDancer @  21.5.2006,  18:28 Найти цитируемый пост)
Во-во, это я и имел ввиду. Мне не нужен запуск autorun.inf, мне нужно чтобы запускался файл прописаный там.

Ты хоть чут-чуть думать/читать умеешь? Я ж тебе писал!!
Цитата(Sunvas @  20.5.2006,  18:01 Найти цитируемый пост)
Ну, открывай этот файл как обыкновенный ini файл и ищи значение параметра run. Потом простым winexec-ом запускай... 

 


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Nickel
Дата 22.5.2006, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 2
Всего: 4
Цитата(Nickel @ 21.5.2006,  12:12)
А вот так?
Код

uses IniFiles;

function ExecAutoRun(Drive:string):Boolean;
var
  Ini: TIniFile;
begin
    Result:=False;
    SetCurrentDirectory(PChar(Drive));
    Ini := TIniFile.Create(Drive + 'AutoRun.inf' );
    if WinExec(PChar(Ini.ReadString( 'autorun', 'open', '')),SW_SHOW) > 31 then Result:=True;
    Ini.Free;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
if ExecAutoRun('G:\') then ShowMessage('Сработало')
else ShowMessage('Не сработало')
end;

Это я для кого написал? Можно было хотя бы взглянуть или пока носом не ткнёшь? 
PM   Вверх
ShadowDancer
Дата 22.5.2006, 12:09 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Sunvas, я те говорю про автоматический запуск (как на CD дисках), а не при помощи соей программы.

Nickel, к тебе это тоже относится. 
  Вверх
_hunter
Дата 22.5.2006, 12:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
а тебе говорят что это работает только на CD/DVD... 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
ShadowDancer
Дата 22.5.2006, 23:24 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
_hunter, ОК, на CD так на CD 
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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