autorun

← →
Фэ (2002-01-17 23:02) [3]

Сначала определись, что нужно
1.Просто программка это делающая (да - скажу откуда скачать)
(проще, дешевле,быстрее, опять же Дельфи не нужен)
2.Хочешь сам написать таковую.

По второму случаю
Сидит обезьяна на дереве и делает вид, что думает над: "Как бы достать вот ту вкусную штуку".
И самое интересное, что ход ее псевдомыслей достаточно логичен.
1.Эта штука вкусная(подозревает).
2.Эта штука может быть сорвана(видел, другие могут).
3.Для этого надо дотянуться (ну, что я - без рук что-ли, даи не без ног, ди не без..).
4.Если руки не хватит, надо придумать еще чем(ну и еще органы есть и подручные средства и подножные).
5.Чтобы она не упала, а случаи были, надо чего-то под нее подставить (все что вкусное - тяжелое и имеет обыкновение падать вниз и надо обязательно, чтобы не упала, а то гнусные дряки уволокут в свои смрадные гнездилища).

Ну аж как доберусь..

********
А теперь перевод натуралиста.
1.В форточках с каким-либо расширением может быть связано только одно приложение(есть подозрение).
2.С расширением htm html shtml и т.п связывается установленный Интернет-браузер
по умолчанию.
3.Как правило, Они - форточкоделатели, для своих приложений предусматривают,хотя и странно это, запуск с параметрами,
или запуск по связанному с ними расширениями.
Значит будем подозревать,, что IE можно так или так запустить.
4.И как нам (тебе), что-нибудь, с расширением exe, запустить в форточках ?
Здесь Они хорощо подумали и вот в наших руках магическая функция ShellExecute () запускающая приложение,
или документ, через приложение, связанное с ним (старичок ShellAPI про ее все знает).

ShellExecute(Handle, "OPEN", PChar(ParamStr(1)), nil, nil, SW_SHOWNORMAL);

Вот блин - всего-то.
Да, но если на форме делать - размер жуткий - 400 чего-то кило.

И тут повезло !!!.. (можно продолжить)

//*** файл RunIt.pas *******************
program RunIt;
uses Windows, ShellAPI;
begin if ParamCount > 0 then ShellExecute(0, "OPEN", PChar(ParamStr(1)), nil, nil, 0);
end.
// Size 16896 byte; CRC32: 49bb8032

Запуск: runit.exe C:\index.htm

P.S. Обязательно runit.exe, а то хто его знает этих форточкоделателей и про Path не забыть.
"Если чего - заходи".
P.P.S. Не вполне корректно для некоторых случаев, но для IE - OK.

autorun Найти похожие ветки