Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Autorun для CD

Стас © (2002-08-28 08:19:00)
Подскажите, где можно глянуть на инфу про написание сабж.

RV (2002-08-28 09:43:00) [1]
конечно Dimich1978 © (28.08.02 09:25
я писал черт знает когда, разбираться было некогда

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

Стас (2002-08-28 09:17:00) [3]
Попробую, спасибо. Думал, попроще будет выглядеть.

RV (2002-08-28 09:09:00) [4]
это надо?
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:01:00) [5]
Мне интересно, как запустить какой-нибудь ехе-шник уже с этой оболочки(ssss.exe)

RV (2002-08-28 08:33:00) [6]
autorun.inf - файл
open=ssss.exe - запись с файлом на автозапуск
или я не понял чего?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »