Đối số dòng lệnh của Dịch vụ Windows Delphi

Question

Tôi có Dịch vụ Windows dựa trên Deplhi, khi cài đặt, phân tích một số đối số dòng lệnh. Tôi muốn các đối số đó được thêm vào dòng lệnh dịch vụ (giá trị ImagePath trên sổ đăng ký) để dịch vụ luôn được bắt đầu với chúng.

Tôi làm cách nào để thực hiện việc này?

Tôi muốn nhìn regedit như thế này:
tại registry key HKEY_LOCAL_MACHINE \ SYSTEM \ ControlSet001 \ Services \ MyService

• ImagePath = C:\Path\to\my\service.exe -some -arguments

Cảm ơn

Cập nhật: Quá trình cài đặt được thực hiện với >MyService.exe /install -some -arguments. Những đối số đó là những đối số tôi muốn tồn tại trong dòng lệnh.

Cập nhật: Tôi tìm thấy giải pháp bằng cách viết trực tiếp vào sổ đăng ký (xem here), nhưng tôi vẫn muốn một giải pháp thanh lịch hơn, như sử dụng một số thuộc tính TService hoặc thứ gì đó thuộc loại đó. Cảm ơn!

Answer 1

Ok, sau một số nghiên cứu, tôi đã từ bỏ một cách tiếp cận thanh lịch và thực hiện đường dẫn thẳng về phía trước để ghi trực tiếp vào sổ đăng ký.

Để làm cho mọi việc đơn giản, tôi đã làm điều này: Tôi lưu trữ các đối số mà tôi muốn chuyển vào các biến trên TService của mình. Sau đó, tôi thiết lập sự kiện AfterInstall để viết trực tiếp vào sổ đăng ký (sử dụng một đối tượng TRegistry) dòng lệnh chính xác mà tôi muốn.

uses Registry; 
procedure MyService.AfterInstall(Sender: TObject) ; 
var 
    reg:TRegistry; 
begin 
    reg := TRegistry.Create; 
    try 
    reg.RootKey := 'HKEY_LOCAL_MACHINE'; 
    if reg.OpenKey('SYSTEM\CurrentControlSet\Services\MyService', True) then 
    begin 
     reg.WriteExtendString ('ImagePath', ParamStr(0) + ' -some -arguments') ; 
     reg.CloseKey; 
    end; 
    finally 
    reg.Free; 
    end; 
end; 

Không phải là giải pháp thanh lịch mà tôi đang tìm kiếm, nhưng nó thực hiện công việc.

Cảm ơn các câu trả lời khác!

Answer 2

Tôi không nghĩ rằng bạn có thể bắt đầu dịch vụ với họ, nhưng nếu bạn lưu trữ các thông số đó trong sổ đăng ký, bạn có thể sửa đổi chương trình để khởi động trong tương lai luôn luôn đi và lấy chúng. (ví dụ: nếu ParamCount = 0 sau đó truy lục thông số từ đăng ký)

Answer 3

Đối số dịch vụ có thể được chuyển trong đối số lpBinaryPathName đến hàm CreateService. Trong TService của Delphi, nó được gọi bên trong TServiceApplication.RegisterServices.InstallService, mà bạn không thể ghi đè (dễ dàng).

Vì vậy, tôi nghi ngờ cách dễ nhất để thực hiện việc này là xử lý sự kiện TService.AfterInstall và tự cập nhật đăng ký qua ChangeServiceConfig.

Answer 4

Pablo, Tôi đã có cùng một câu hỏi và không thể tìm thấy bất cứ điều gì và cũng đã định tuyến chỉnh sửa đăng ký. Ngoài ra, tôi cũng sử dụng Tác vụ tùy chỉnh để tạo thư mục cài đặt bổ sung và sao chép tệp (trong C#). Đề xuất của bạn hữu ích và tôi cũng đã ngừng tìm kiếm một cách "thanh lịch". cảm ơn

Answer 5

Tôi vừa phát hiện ra một điều gì đó đáng ngạc nhiên, có thể đáng để chia sẻ.

Bạn có thể chỉ định các thông số cho các dịch vụ Windows trong (ít nhất) cách sau:

1. Nhập nó trong Service Manager GUI là "Startparameter".
2. Vượt qua nó như là đối số: sc.exe YourService param1 param2
3. Nhập nó trong registry trong mục ImagePath = .. \ YourService.exe param1 param2

Trong Delphi có 2 cách để truy vấn application/thông số dịch vụ:

• System.ParamCount/System.ParamStr: Bằng cách này bạn nhận được thông số của 3. ở trên.
• TService.ParamCount/TService.Param []: Bằng cách này bạn nhận được các thông số của 1. và 2. ở trên.

Answer 6

Bạn nên sử dụng API SCM để cài đặt đúng dịch vụ và định cấu hình nó. SC.EXE là giao diện dòng lệnh cho API SCM. Bạn không nên thao tác đăng ký trực tiếp trong tình huống này, nó hoạt động nhưng nó cũng phụ thuộc vào sự cho phép tài khoản dịch vụ có. Dù sao thì tôi tự hỏi tại sao bạn cần các đối số dòng lệnh nếu bạn nhúng chúng vào mã - thường những đối số đó được đặt bên ngoài dịch vụ (bởi trình cài đặt, trình cấu hình, bất kỳ điều gì) để thay đổi hành vi dịch vụ.