Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #107.40K
Hello, I need to create a service application which can be started X times as a service. I used the following code: procedure TMyService.ServiceBeforeInstall(Sender: TService); begin if ParamStr(1)='-install' then IHotel := ParamStr(2) else IHotel :=ParamStr(1); IHotel := TRIM(AnsiReplaceText(Copy(IHotel,2), ' ', '')); if Length(IHotel) = 0 then begin Showmessage('Hotel name not … |