авто ран с помлщью Delfi

[WinMen]

Как сделать так чтоб окно авто рана запускалось с сД дВд дисков,и открывал файлы"программы" с сД дВд диска? :help:

[Admiral]

Создать файл AutoRun.inf с таким содержанием
[AutoRun]open=Project1.exe
icon=Project1.exe,0
где Project1.exe откомпилированный проект, и разместить эго вместе с Project1.exe в корень диска который необходимо прожечь.
Autorun.exe (http://forum.oszone.net/thread-33602.html)

В самой проге используем относительные пути к именам файлов программ на запуск, например на запуск будет осуществлять так ShellExecute(0,'open','Папка_программы_на_диске\\Программы.ехе',nil,nil,SW_SHOW);
где 'Папка_программы_на_диске' - папка лежащая в корне диска, а 'Программы.ехе' файл на запуск, который находится в ней.

P.S.
Правильно пишем Delphi

[WinMen]

да это конечно хорошо но чтоб Project1.exe »
откывал с диска файл допустим винамп, а тот в свою очередь автоматически файл!"на сД диске?
как писать имя сД диска если у меня он "Е:\",а у другого "F:\"?

[Admiral]

Тогда определяем первой строчкой кода своё место пребывание
ExtractFilePath(ParamStr(0));
или двумя строчками кода
AppPath: String;
GetDir(AppPath, 0);
Я так понял Винамп будет с собой прога таскать диске, эта и есть та прога которую необходимо запускать?
Тогда можно написать так
ShellExecute(0,'open','<Папка Винампа на диске>\\Winamp.exe <Папка с песнями>\\Плейлист или по одной песни',nil,nil,SW_SHOW);
и своё место прибивание не надобно определять, если с собой Винамп таскаем.

[WinMen]

ну я сделал плеер и хочу через него свои клипы вкл. перерыл не мало электронных учебников но толка не какого. мне сказали что есть определитель каторый в самам Delphi пишешь и он сам определяет имя сд диска и читает мне нужный файл.

[Shurikss123]

Воть так вот ты даш знать программе что она находиться на cd диске
И пути не надо каверкать после слеша указываеш папку и фаил!
unit shellapi;
...
var
cd : String;
begin
cd:=ExtractFileDrive(Application.ExeName);
ShellExecute(Handle,'open',PCHAR(cd+'\Путь к программе\прога.EXE'),nil,nil,SW_SHOW);

[WinMen]

Спасибо вам. а можно такой вопрос как сделать в преере плей лист?

если можно то подскажите электронный учебник где это может быть!

[Shurikss123]

Учебник наврятли но можеш поискать на этом форуме http://www.sql.ru/forum/actualtopics.aspx?bid=20
А использовать можно ListBox в качестве плей листа!

[WinMen]

А использовать можно ListBox в качестве плей листа! »
А как в него вгонять ссылки для песен(видео) что при нажатии они воспроизводились?

[Shurikss123]

Чето типа Этого!

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.Add(TreeView1.Selected,Edit1.Text);
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
Form1.Caption:=TreeView1.Selected.Text;
end;

[WinMen]

:clapping: :yahoo: :lol:
СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!

[Котяра]

Мне кажется, что программировать авторан особо смысла не имеет. Для программ есть CD Shell Tools, для музыки есть свои автораны...

[WinMen]

Мне кажется, что программировать авто ран особо смысла не имеет. Для программ есть CD Shell Tools, для музыки есть свои автораны.. »
Да,но если я хочу создать свой собственный плеер и запускать с помощью него открывать клипы! просто их много и не получается сделать не сД не дВд диск с ним!

[Shurikss123]

Да,но если я хочу создать свой собственный плеер и запускать с помощью него открывать клипы! просто их много и не получается сделать не сД не дВд диск с ним! »

Мда ты гениий, а кодеки ты тоже в делпфи засунеш?

[WinMen]

:( так он же и без них будет читать тоже самое что я просто скину их на диск. а кодеки они же не где попало а в sistem32 и вроде виндоус 1. :search:

[Shurikss123]

так он же и без них будет читать тоже самое что я просто скину их на диск. а кодеки они же не где попало а в sistem32 и вроде виндоус 1. »

Твой диск поидет по рукам Правильно? если он поидет по рукам где гарантия что у всех есть эти кодеки. вообшем на диск кинь на всякий случай пакет кодеков! чтобы было! это был дружеский совет! :up

[Котяра]

Твой диск поидет по рукам Правильно? если он поидет по рукам где гарантия что у всех есть эти кодеки. вообшем на диск кинь на всякий случай пакет кодеков! чтобы было! это был дружеский совет! »
Да, именно так. Подгружать кодеки при воспроизведении не получится, так как они должны лежать в system32 и быть установлены. Лучше всего кинуть инсталлятор кодеков на диск.

[WinMen]

Цитата Shurikss123:
Твой диск поидет по рукам Правильно? если он поидет по рукам где гарантия что у всех есть эти кодеки. вообшем на диск кинь на всякий случай пакет кодеков! чтобы было! это был дружеский совет! »
Да, именно так. Подгружать кодеки при воспроизведении не получится, так как они должны лежать в system32 и быть установлены. Лучше всего кинуть инсталлятор кодеков на диск. »

Я так и сделаю!

[WinMen]

Ребята спасибо большое!
Можете помочь найти учебник электронный??! :up

[SlashX]

Используй ListBox и OpenDialog
вот код кнопы добавления файлов в плейлист:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if OpenDialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1 do
begin
ListBox1.Items.Add(OpenDialog1.Files.Strings[i]);
end;
end;
end;

Двойной клик по плейлисту:


procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if ListBox1.Items.Strings[ListBox1.ItemIndex] <> ''
then
begin
MediaPlayer1.FileName:=ListBox1.Items.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;