|
Checks if a process with specified process ID is running. |
|
ProcessId |
The ID of the process to check for. |
|
updating
procedure UpdateServerStatus(var record LocalManagedServerVc LMSr,var record HansaVersionVc HVr)
begin
LongInt svpid;
record LocalManagedServerVc OldLMSr;
string 255 dbname;
string 255 hallogfile;
// -- //
if (PidIsRunning(svpid)==false) then begin
LogText(0,"UpdateServerStatus: 2");
LMSr.CurrentStatus = kStatusConfigInError;
LMSr.StatusText = "pid missing, but HDB locked";
LogText(0,"UpdateServerStatus: pid missing, but HDB locked");
goto LUpdateServerStatus;
end;
// -- //
return;
end;
««