Текущий архив: 2004.05.16;
Скачать: CL | DM;
Вниз
autorun cd-rom Найти похожие ветки
← →
random (2004-03-31 09:22) [0]Проблема такая. Отключил через реестр автозапуск cd-rom (надоел уж очень). Но как оказалось эта фенечка бывает иногда полезной, а запускать диск через файловый менеджер (или того-хуже через "мой компьютер") накладно. Хочу накатать утилитку, которая добавит в контекстное меню пунктик "автозапук cd" кликаешь крысой и диск запускается - красота!
А теперь, уважаемые Знатоки, вопрос:
- как в Дельфи реализовать автозапуск?
Минута на размышление.
p.s. Именно автозапуск а не редактирование реестра
← →
easy © (2004-03-31 10:19) [1]
procedure TForm1.Button1Click(Sender: TObject);
var
ini:TIniFile;
s:string;
begin
ini:=TIniFile.Create("F:\\autorun.inf");
try
s:=ini.ReadString("autorun","OPEN","");
if s<>"" then begin
s:="F:\\"+s;
shellexecute(0,"",pchar(s),"",pchar(extractfilepath(s)),
SW_SHOWNORMAL);
end;
finally
ini.Free;
end;
end;
← →
random (2004-03-31 10:57) [2]премного благодарен
Страницы: 1 вся ветка
Текущий архив: 2004.05.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
