Открыть файл из папки с exe

@Sawyer1 · Регистрация: 04.06.2014

Author24 — интернет-сервис помощи студентам

Требуется открыть файл справки (Help.Chm), который находится в одной папке с exe файлом программы.
если прописать такое:

Delphi

1	ShellExecute(Handle, 'open', 'C:\Users\UserName\Desktop\Win32\Debug\help.chm',nil, nil, SW_SHOW);

,то всё работает. Но мне нужно сделать так, чтобы открывался данный файл не зависимо от того, где располагается вся папка с программой. Пытаюсь сделать так:

Delphi

1	ShellExecute(Handle, 'open', 'extractfilepath(Application.ExeName)help.chm',nil, nil, SW_SHOW);

- не работает.

@саша40 · 17.06.2014, 21:48

Пробуй так:

Delphi

1	ShellExecute(Handle,'open', PChar(ExtractFilePath(Application.ExeName) + '\help.chm',nil,SW_ShowNormal);

@droider · 17.06.2014, 21:57

саша40, код не сработает.
Правильнее будет так

Delphi

1	ShellExecute(0, 'open', PChar(ExtractFilePath(ParamStr(0)) + 'help.chm'), nil, nil, SW_SHOW);

	17.06.2014, 21:57

Опции темы