Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Union,
25. Feb 2008
Wenn Du den Parameter mit ChangeServiceConfig in den Dateinamen geschrieben hast, kommst Du mit ParamStr ran. Wenn Du das Eingabefeld in Services.msc oder sc start <service> <param-1>[.. <param-n>} verwendet hast, greifst Du über TService.Params darauf zu.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Union,
25. Feb 2008
Du kannst mit ChangeServiceConfig direkt nach dem Installieren des Service den Pfad ändern um einen Parmeter einzufügen:
procedure TsrvTest.ServiceAfterInstall(Sender: TService);
var
ScmH : SC_HANDLE;
SvcH : CARDINAL;
NewPath : string;
begin
ScmH := OpenSCManager(nil, SERVICES_ACTIVE_DATABASE, SC_MANAGER_CONNECT or GENERIC_READ);
if ScmH <> 0 then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Union,
25. Feb 2008
Vielleicht mit ParamStr(1..x)?