Application.ExeName w ServiceApplication

Mam maly problem napisalem sobie program jako normalnego exe i mam tam np cos takiego:

if not DirectoryExists(ExtractFilePath(Application.ExeName)+'\kam') then
        MkDir(ExtractFilePath(Application.ExeName)+'\kam');

Wszystko dziala pieknie i teraz chcialem sobie przerobic program na usluge. Wiekszosc funkcji dzialala ale mam problem wlasnie z Application.ExeName.

Ma ktos pomysl jak to zastapic?

Extractfilename(GetModuleName(0));

Dzieki wielkie