попробовал в var вбить ParamStr: string; и понял - глупость сделал

Если у каво получится то помогите исходником!:)буду по гроб благодарен:)

MoteX, ParamStr - глобальная переменная, её не надо объявлять. Ещё в скобках нужно указать индекс 1, если открывается только один файл (в плеере только один и открывается) Короче, типа так:
If ParamStr(1) <> "" Then
MediaPlayer1.FileName:= ParamStr(1);

MoteX, тока я не помню где этот код мона писать, вроде бы в OnShow формы.

CXakep75, вобщем прописал в oncreate ,при простом запуске норм все,а если запускаю с файлом томне ьесконечно летят ошибки типа мп не распознает файл:(

Вобщем Все исправил:)спасибо!

ну ребят...следующий вопрос гг.....как мне сделать так што б при перетаскивании какого нить файла на listbox он туды добавлялся?:)гг

MoteX, вот эт я сам не знаю :rzhu2:

MoteX, не парься короче, сделай кнопку и усё.

Эх... OnCreate формы: DragAcceptFiles(Handle, true); Далее: USES ShellApi;Далее: protected procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles; Далее: procedure TForm1.WMDropFiles(var Msg: TMessage); var FileName: array[0..256] of char; begin DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename)); Memo1.Lines.LoadFromFile(FileName); DragFinish(THandle(Msg.WParam)); end; Вот и все.

Это на примере TMemo. ListBox аналогично.

Вот еще: procedure TForm1.WMDROPFILES(var Msg: TMessage); var i, amount, size: integer; Filename: PChar; begin inherited; Amount := DragQueryFile(Msg.WParam, "FFFFFFFF, Filename, 255); for i := 0 to (Amount - 1) do begin size := DragQueryFile(Msg.WParam, i, nil, 0) + 1; Filename := StrAlloc(size); DragQueryFile(Msg.WParam, i, Filename, size); listbox1.items.add(StrPas(Filename)); StrDispose(Filename); end; DragFinish(Msg.WParam); end;