Delphi

Admiral · Отправлено: **22:13, 13-06-2008** | #2

Создать файл AutoRun.inf с таким содержанием

Код:

[AutoRun]open=Project1.exe
icon=Project1.exe,0

где Project1.exe откомпилированный проект, и разместить эго вместе с Project1.exe в корень диска который необходимо прожечь.
Autorun.exe

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

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

WinMen · Отправлено: **22:42, 13-06-2008** | #3

да это конечно хорошо но чтоб

Цитата Admiral:

Project1.exe »

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

Admiral · Отправлено: **22:49, 13-06-2008** | #4

Тогда определяем первой строчкой кода своё место пребывание

Код:

ExtractFilePath(ParamStr(0));

или двумя строчками кода

Код:

AppPath: String;
GetDir(AppPath, 0);

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

WinMen · Отправлено: **22:55, 13-06-2008** | #5

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

Shurikss123 · Отправлено: **22:58, 13-06-2008** | #6

Воть так вот ты даш знать программе что она находиться на cd диске
И пути не надо каверкать после слеша указываеш папку и фаил!

Код:

unit shellapi;
...
var
cd : String;
begin
cd:=ExtractFileDrive(Application.ExeName);
ShellExecute(Handle,'open',PCHAR(cd+'\Путь к программе\прога.EXE'),nil,nil,SW_SHOW);

WinMen · Отправлено: **23:18, 13-06-2008** | #7

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

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

Shurikss123 · Отправлено: **19:49, 14-06-2008** | #8

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

WinMen · Отправлено: **08:20, 15-06-2008** | #9

Цитата Shurikss123:

А использовать можно ListBox в качестве плей листа! »

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

Shurikss123 · Отправлено: **17:03, 15-06-2008** | #10

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

Код:

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;