Table of Content
HAL Forum
function boolean PidIsRunning (
integer ProcessId)
Description:
Checks if a process with specified process ID is running.
Parameters:
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;
Related topics:
««