Posts
 
Reputation
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
~86 People Reached
Favorite Forums
Favorite Tags
Member Avatar for ebacci

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 …

0
86