Главная страница
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.017 c
3-26892
Sergey L.
2002-08-20 09:48
2002.09.09
Помогите в создании отчета


3-26917
SerVS
2002-08-11 00:31
2002.09.09
ConnectionString


14-27163
Вадим
2002-08-13 17:11
2002.09.09
WebMoney


1-26976
mike.dld
2002-08-29 15:23
2002.09.09
Stretch


14-27156
PVR
2002-08-11 10:14
2002.09.09
Пишем Property Inspector