Работа с chm в Delphi

[Fataller]

Работает...только теперь вопрос - полный путь может меняться в зависимости от того, на чьем компьютере находится программа. Файл хелп лежит в папке /Data. Я пытался реализовать это таким образом:
s:=getcurrentdir;
s:=s+'/Data/help.chm';
ShellExecute(0, nil, PChar(s), nil, PChar(ExtractFilePath(s)), 1)
но получился такой же касяк как и раньше. Мб я где то ошибаюсь?

[Ntlegend]

getcurrentdir не всегда возвращает путь к программе.. попробуй лучше ExtractFilePath(Paramstr(0));

[Fataller]

Все, работает. Большое спасибо всем, откликнувшимся! Классный форум, классные пользователи

Блин, теперь еще одна небольшая проблема...в общем есть у меня на форме1 медиаплейер стандартный, где начинает играть музыка при создании формы:

MediaPlayer1.FileName:='Data\Music\varyag.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;

И есть еще форма2 с "опциями". Там есть чекбокс "Включить\выключить музыку". Ну я запускаю программу, музыка поет, все отлично. Пробую включить выключить, тоже все нормально. Кстати вот обработчик для чекбокса:

procedure TForm5.CheckBox2Click(Sender: TObject);
begin
if Form1.MediaPlayer1.Enabled=True then
begin
  Form1.MediaPlayer1.Stop;
  Form1.MediaPlayer1.Eject;
  Form1.MediaPlayer1.Enabled:=False;
end
else begin
  Form1.MediaPlayer1.Enabled:=True;
  Form1.MediaPlayer1.Open;
  Form1.MediaPlayer1.Play;
end;
end;

Но затем, опять же, когда я сворачиваю приложение в трей, разворачиваю, и пытаюсь выключить музыку, то она выключается, а когда пытаюсь включить повторно (что до этого работало), выводиться ошибка невозможно найти файл. Может что подскажете?

[s.Creator]

ExtractFilePath(Application.ExeName);
ExtractFilePath(ParamStr(0));

оба дают путь к папке приложения.
Правда меня второй вариант однажды подвел.

[Stilet]

Fataller

Eject то зачем делать?

[Ntlegend]

ExtractFilePath(Application.ExeName);
ExtractFilePath(ParamStr(0));

оба дают путь к папке приложения.
Правда меня второй вариант однажды подвел.

Application.ExeName в модуле Forms обьявлен как
property ExeName: string read GetExeName;
а вот сама функцыя его получения находится в томже модуле

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;