Как запустить файл другой программой

[demiancz]

Пытаюсь запустить mp.3 Винампом.
так не получается

ShellExecute(0, 'open', '"C:\Program Files\Winamp\winamp.exe"',
             ExtractFilePath(paramstr(0))+'player\1.mp3', nil,
             SW_SHOWNORMAL);

Ошибка

[DCC Error] Unit1.pas(1402): E2010 Incompatible types: 'PWideChar' and 'string'

А так проект компилируется, но путь к файлу не правильный. Винамп открывает непонятно что.

ShellExecute(0, 'open', '"C:\Program Files\Winamp\winamp.exe"',
             PChar(ExtractFilePath(paramstr(0))+'player\1.mp3'), nil,
             SW_SHOWNORMAL);

Помогите пождалуйста.

[Stilet]

Ошибка

ShellExecute(0, 'open', PChar('"C:\Program Files\Winamp\winamp.exe" "' +ExtractFilePath(paramstr(0))+'player\1.mp3"'),
             '', nil,
             SW_SHOWNORMAL);

Или даже проще:

ShellExecute(0, 'open', PChar(ExtractFilePath(paramstr(0))+'player\1.mp3'),
             '', nil,
             SW_SHOWNORMAL);

[demiancz]

Первый вариант не работает почему то а второй не подходит, так как нужно именно Winamp-ом открыть, а если mp.3 по умолчанию открывает Windows MEdia Player то во втором варианте этот файл открывается именно в WMP.

[Yurk@]

procedure TForm1.Button1Click(Sender: TObject);
const
  p_path = '"C:\Program Files\Winamp\winamp.exe"';
begin
  ShellExecute(0, 'open', PChar(p_path), PChar('"' + ExtractFilePath(Application.ExeName) + 'player\1.mp3"'), nil, SW_SHOWNORMAL);
end;

[demiancz]

Yurk@, Спасибо. Все работает.