DELPHI中如何调用本单元的procedure

[混世罗汉]

有一个过程A：
procedure TVipDoorAutoOpen.ServiceStart(Sender: TService; var Started: Boolean);
begin
....
end;

请问在其他过程中，如何调用？ 好像 servicestart(nil)就行了。

但是，另一个过程B：
procedure TVipDoorAutoOpen.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
...
end;


不知如何调用，请那位指导一下？ 就是 servicestop(参数如何写？）
更多 0

[混世罗汉]

不知是否可以举例演示一下，兄弟？

[混世罗汉]

不知是否可以举例演示一下，兄弟？

[混世罗汉]

不知是否可以举例演示一下，兄弟？

[taste品味]

你的【TVipDoorAutoOpen.ServiceStart】的这个过程是属于类，所以你得先创建类实例，再调用此方法啊！ 如 var VipDoorAutoOpen :TVipDoorAutoOpen; begin VipDoorAutoOpen :=TVipDoorAutoOpen.create(nil); VipDoorAutoOpen.ServiceStart(参数1，参数2); end;

[npkaida]

var b: boolean; begin ServiceStop(nil, b); end;

[日立奔腾浪潮微软松下联想]

你这个是服务程序吧，ServiceStart、ServiceStop方法不需要你主动调用，服务启动/停止的时候会自动调用。