---

Hej

Jeg er løbet ind i at jeg gerne vil finde ud af hvor programfilen til min
service ligger...Er der en elegant måde at gøre dette på ligsom med standard
programmer hvor man kan bruge application.exename...?

På forhånd tak

MVH
Thomas

---

Hej Thomas !

Thomas Eg Jørgensen wrote:
> Jeg er løbet ind i at jeg gerne vil finde ud af hvor programfilen til min
> service ligger...

function GetScriptName: string;
var
TheFileName: array[0..MAX_PATH] of char;
begin
FillChar(TheFileName, sizeof(TheFileName), #0);
GetModuleFileName(hInstance, TheFileName, sizeof(TheFileName));
Result := string(TheFileName);
end;

I din service:
ServiceFileName := ExtractFilePath(GetScriptName);

-Kurt

---

Hej

En simpel måde, er at bruge ParamStr(0). Den indeholder sti + filnavn
på din exe-fil.

mvh Per