Question

delphi的自定义函数调用方法

function ServiceGetStatus(sMachine, sService: string ): DWord;
var
schm, schs: SC_Handle;
ss: TServiceStatus;
dwStat : DWord;
begin
dwStat := 0;
schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);
if(schm > 0)then
begin
schs := OpenService(schm, PChar(sService), SERVICE_QUERY_STATUS);
if(schs > 0)then
begin
if(QueryServiceStatus(schs, ss))then
begin
dwStat := ss.dwCurrentState;
end;
CloseServiceHandle(schs);
end;
CloseServiceHandle(schm);
end;
Result := dwStat;
end;
{判断某服务是否安装，未安装返回true，已安装返回false}
function ServiceUninstalled(sMachine, sService : string ) : boolean;
begin
Result := 0 = ServiceGetStatus(sMachine, sService);
end;

{判断某服务是否启动，启动返回true，未启动返回false}
function ServiceRunning(sMachine, sService : string ) : boolean;
begin
Result := SERVICE_RUNNING = ServiceGetStatus(sMachine, sService );
end;

{判断某服务是否停止，停止返回true，未停止返回false}
function ServiceStopped(sMachine, sService : string ) : boolean;
begin
Result := SERVICE_STOPPED = ServiceGetStatus(sMachine, sService );
end;

以上是代码，请问各位大爷，咋调用呢？谢谢 我是初学者。。。

Answer 1

在同一个文件，可以直接用。
同一个工程，调用只需要在引用该函数的单元开头 uses 函数所在单元，按照你写的代码，没有看到前缀，应该是直接调用。有些的写在类下面的函数，需要创建该类的实例，然后才能加上类实例的前缀，调用该函数。
如果不在同一个工程，则需要在浏览路径下有该文件的路径，然后use

Answer 2

首先 uses 函数所在单元，然后直接调啊