路过,1楼的问题 参考
var
I: Integer;
S: string;
lFuncIsRunning: Boolean;
begin
S := 'Biz:\CSLZ\GNA.Func';
for I := 0 to TSystemCore.FuncManager.RunningFuncCount - 1 do
if SysUtils.UpperCase(TSystemCore.FuncManager.RunningFuncs[I].BizClassURL.BizURL.URL) = SysUtils.UpperCase(S) then
begin
lFuncIsRunning := True;
break;
end
else
lFuncIsRunning := False;