Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.09;
Скачать: CL | DM;

Вниз

Autorun для CD   Найти похожие ветки 

 
Стас   (2002-08-28 08:19) [0]

Подскажите, где можно глянуть на инфу про написание сабж.


 
RV ©   (2002-08-28 08:33) [1]

autorun.inf - файл
open=ssss.exe - запись с файлом на автозапуск
или я не понял чего?


 
Стас   (2002-08-28 09:01) [2]

Мне интересно, как запустить какой-нибудь ехе-шник уже с этой оболочки(ssss.exe)


 
RV ©   (2002-08-28 09:09) [3]

это надо?
program Project1;

uses
Windows;

{$R *.RES}
var
ch:char;
f:textfile;
s,s1:string;
i:integer;

procedure Run(App: String);
begin
winexec(@App[1],SW_SHOWDEFAULT);
end;



begin
for ch:="d" to "x" do begin
s:="";
s1:="";
s:=s+ch+":\autorun.inf";
{$I-}
assignfile(f,s);
reset(f);
if IOResult=0
then while not(eof(f)) do begin
readln(f,s);
if (Pos("OPEN",s)<>0) or (Pos("Open",s)<>0) or (Pos("open",s)<>0)
then begin
delete(s,1,4);
for i:=1 to length(s) do begin
if (s[i]<>" ") and
(s[i]<>"=")
then s1:=s1+s[i];

end;
s1:=ch+":\"+s1;
Run(s1);
closefile(f);
Halt(0);
end;
end;
end;

end.


 
Стас   (2002-08-28 09:17) [4]

Попробую, спасибо. Думал, попроще будет выглядеть.


 
Dimich1978 ©   (2002-08-28 09:25) [5]

Вообще это делается и проще типа
Не забудь указать Shellapi в разделе uses
var
apchar:array[0..500] of char;
begin
strpcopy(apchar,files1);
shellexecute(handle,"open",apchar,0,0,SW_normal);
где files1- имя запускаемого файла. Если чего не понятно пиши.


 
RV ©   (2002-08-28 09:43) [6]

конечно Dimich1978 © (28.08.02 09:25
я писал черт знает когда, разбираться было некогда



Страницы: 1 вся ветка

Текущий архив: 2002.09.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-26999
Smok_er
2002-08-29 18:43
2002.09.09
Stringtowidechar выдает Access Violation :(


3-26913
Ученик
2002-08-20 12:25
2002.09.09
Быстрые связи Master-Detail


14-27200
esprit_bel
2002-08-12 08:54
2002.09.09
Винт


1-26988
Still Swamp
2002-08-29 15:42
2002.09.09
TImageList.Add


7-27245
Alexander Vorobyov
2002-06-21 16:51
2002.09.09
Ловушка в Сервисе (CBT Hook in NT Service)