Помогите создать Autorun в Делфи!!
Ответьте пожаловста на вопросы:
1. Как в Делфи 7.0 сделать так чтобы при загрузке формы начинала играть музыка?
2. Как сделать так чтобы при нажатии на кнопку открывался диск (сидюк)?

To: Dead.MorozZ
1. Поставь в OnCreate формы:

PlaySound('test.wav', 0, SND_FILENAME)

2.

MciSendString('Set cdaudio door open', 0,0,form1.handle);

Спасибо!!
А для воспроизведения музыки Дельфи никаких компонентов не надо??
И еще.. Че параметры означают в обеих прогах??

PlaySound
mciSendString

Это функции WinApi, компоненты не нужны...

А где и как их идентифицировать??

Uses Windows, mmSystem, ... 

если эти 2 модуля подключены, все должно работать...

Объясни что значит SND_FILENAME, а то я в англицком не секу и те ссылки, которые ты мне дал оказались бесполезными

Это говорит системе, что переданная первым параметром строка является именем Sound-файла (в смысле, звукового )

А по второй проге конфуз вышел)
Я просто не граммотно выразился мне надо было диск(CD-Rom) открыть как папку, а не то чтоб мне сам сидюк вылазил. Но все равно вещь полезная! Спасибо!
Может и поможешь и с той прогой, которую мне действительно надо?? PlzZ:)

Ну, тогда попробуй просто

WinExec('explorer F:\', SW_SHOW);

(вместо F поставь букву своего CD-ROMа)

А если я не знаю букву СД-рома (я же все-таки Autorun пытаюсь писать, должно быть универсально

Тогда качай DRKB отсюда http://www.drkb.ru/ и читай статью "Как узнать букву CD-ROM?"

Кстати, скачать надо в любом случае, там ОЧЕНЬ много полезной информации...

Слушай, а почему у меня такой странный глюк
Запускаю екзешник с этой лабудой. Сначала играет музыка, на середине останавливается и только после этого показывается форма. А мне бы чтоб это одновременно как-то. PlzZ

И еще такой вопрос: Как музыку остановить в определенный момент??

Вот для midi нашел в ДРКБ :

uses  
  MMSystem;  

// Play Midi  
procedure TForm1.Button1Click;  
const  
  FileName = 'C:\YourFile.mid';  
begin  
  MCISendString(PChar('play ' + FileName), nil, 0, 0);  
end;  

// Stop Midi  
procedure TForm1.Button1Click;  
const  
  FileName = 'C:\YourFile.mid';  
begin  
  MCISendString(PChar('stop ' + FileName), nil, 0, 0);  
end;

Я вообщем нашел DRKB как узнать адресс, по которому "прживает" ЕХЕшник
Application.ExeName. Но как открыть папку с этим адрессом?? Предложенный Volvo способ ( WinExec('explorer FileName' SW_SHOW) ) не катит во всяком случае у меня не получается. Подскажите как, или я че-то не то делаю

To: Dead.MorozZ
Ты что, хочешь программу саму из себя запускать? Зачем тебе Application.ExeName?

Мне надо найти адресс папки, в которой лежит ЕХЕшник

ExtractFilePath(ParamStr(0)) не пробовал?

Попробывал но че-то оброботчик события вообще теперь никак не реагирует. Может чего с параметрами напутал. Может объяснишь что-куда (параметры имелось ввиду)

WinExec('explorer ' + ExtractFilePath(ParamStr(0)), SW_SHOW);

Только учти, что ЭТО будет работать, когда программа будет запускаться с CD, если ты ее запускаешь с харда - будет открыта та папка, из которой производился запуск...

Да я, собственно так и делал. Компилятор пишет что-то вроде не соответствие типов
String & PAnsiChar

Ну, так в чем дело? Типы приводить не умеешь?

  WinExec(pchar('explorer ' + ExtractFilePath(ParamStr(0))), SW_SHOW);

О!! Спасибо большое, все работает!! Так гораздо лучше!!
И все равно не понятно, почему сначала играет музыка, а потом появляется форма.
Можно как-нибудь, чтоб одновременно происходило??

Я тут хочу создать свой авторан на диск. Как задать кнопку обзора CD, что бы при нажатии открывался CD. Как сделать кнопку Извлечь CD и Поиска, которая при нажатии выводит окно для ввода текста, и ведет поиск по имени файла? Как сделать такое окошко, в котором бы отображалась вся структура (дерево) CD? И при двойном клике, на какую либо папку открывалась папка? Какого размера нужно использовать иконки для присвоения её диску? И где достать архивчик таких картинок?

volvo пишет:






Можно при помощи DirectoryListBox на вкладке Win3.1


Размером 32 x 32 или 72 x 72. Можно нарисовать самому в Delphi или Painte

Я пробовал это прописывать, постоянно на них ошибка выпрыгивает.

С обзором диска разобрался, а вот извлечение глючит: [Error] Unit1.pas(74): Undeclared identifier: 'MciSendString' and [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

А как сделать, что бы DirectoryListBox видел архивы и графические расширения? Как можно реализовать кнопку копирования, а если выбранный файл архив то распаковывание во введенную директорию, вводимую в Edit?

Uses ...,  MMSystem;

делал? Я же писАл об этом в посте №6...

О всё теперь работает! Спасибо!

Господи! DirectoryListBox! Где вы такую древность раскопали. Это компоненты со вкладки Win3.1 - вдумайтесь в это слово! Win 3.1!

Нормальные люди используют Shell контролы для работы с оболочкой: TShellTreeView, TShellListView и др. Они кажется на Samples лежат

Как добавить в поле типа Memo кнопку прокручивания списка вниз. И как этот скролл называется? Как задать полоске текста типа Label, что бы при достижение текстом конца заданной рамки он автоматически переносился на новую строку, а не продолжал ползти за границу рамки?

Свойство ScrollBars у Memo.

Свойство WordWrap присвой True.

Как сделать, так что бы окно нельзя было менять в размере, растягивать?

Установить форме BorderStyle в bsSingle

Ну и максимизацию отключить:
BorderIcons -> biMaximize установить в False