как запустить програму при перетаскивание на неё файла

[SeRhy]

Подскажите пожалуйста что нужно зделать для того чтобы при перетаскивание на неё какогото файла програма запускалась и открывала етот файл (на подобе винампа)
Зарание спасибо

[mihali4]

В обработчике события FormDragDrop запускаем ShellExecute для этого файла. Вот и все.
Этот файл в данном случае - Source: TObject. Организуем одно-единственное свойство для этого объекта - полный путь к нему, которое и будет использоваться в качестве параметра для ShellExecute...
Впрочем, пардон, это - для случая, когда программа уже запущена...
А Домовой дал очень изящное решение+++

[Domovoy]

Вот примерчик. Просто на OnCreate формы пишешь

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(0,nil,pchar(ParamSTR(1)),nil,nil,SW_NORMAL);

Вот и всё

[Квэнди]

SeRhy, Может для начала собственно вопрос напишете ? он отсутствие в первом посте темы