Службы в Windows 2003 Server

[Sti.k]

Написал службу для отсылки системных событий по почте, в ХР работает все норм, а вот в Windows 2003 Server глючит. Служба создавалась с помощью обычного TService. Глюк такой: при установке службы с помощью /install пишет что прошла успешно, но когда запускаешь службу, думает и выдает ошибку что службу не удалось запустить, так как служба не отвечает. И при попытке удалить службу она отмечается как удаленная, но не удаляется из списка, и удаляется ток при перезагрузке или после завершения сеанса.

[Sti.k]

Все, проблема решена.
Оказалось что при такой команде

iniFile := ExtractFilePath(GetCommandLine) + iniFile;

получались разные результаты. GetCommandLine в ХР возвращал с кавычками "d:\my.exe" , а в 2003 похоже без.

if Pos('"', iniFile) = 1 then Delete(iniFile, 1, 1);

решило проблему.

[GunSmoker]

А ParamStr(0) или GetModuleName(0) так и вообще исключат любые проблемы И никаких кавычек (это не единственная проблема с GetCommandLine - просто с остальными вы ещё не сталкивались).