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]

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

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

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