Узнать путь к файлу сервиса.

← →
iZEN (2003-05-06 15:35) [0]

Как внутри кода сервиса узнать полный путь, откуда он был запущен?
Спасибо.

← →
Игорь Шевченко (2003-05-06 15:38) [1]

GetModuleFileName(0, ....) ?

← →
iZEN (2003-05-06 15:52) [2]

Delphi syntax:

function GetModuleFileName(Module: HMODULE; Buffer: PChar; BufLen: Integer): Integer;

И как этим воспользоваться?

← →
MBo (2003-05-06 15:59) [3]

var
Buf:array[0..MAX_PATH] of Char;

GetModuleFileName(HInstance, Buf, MAX_PATH);

← →
iZEN (2003-05-06 16:06) [4]

Легче (подсказали на RSDN):
ConfigFileName := ExtractFilePath(ParamStr(0)) + "noicsrvc.ini";