GetMachineName fra PID

Jeg har fundet ud af det.

Jeg skal bare bruge :WTSEnumerateProcesses

Se etv http://msdn.microsoft.com/library/default.asp?url=/library/en-us/termserv/termserv/terminal_services_api_functions.asp

så var der alligevel ikke noget som du ikke viste :)

procedure TProcesses.GetInfo;
var
  I, ProcessInfoCount : Integer;
  ProcessInfoArray: pProcessInfoArray;
  ProcessInfo : pProcessInfo;
begin

  if (not WTSEnumerateProcesses(WTS_CURRENT_SERVER_HANDLE, 0, 1, ProcessInfoArray, I)) then
    RaiseLastWin32Error;

  for i := 0 to FProcessList.Count-1 do
  begin
    ProcessInfo := pProcessInfo(FProcessList.Objects[i]);
    dispose(ProcessInfo);
  end;

  FProcessList.Clear;

  for i := 0 to ProcessInfoCount - 1 do
  begin
    New(ProcessInfo);
    ProcessInfo^ := ProcessInfoArray[i];
    FProcessList.AddObject(ProcessInfoArray[i].ProcessName, TObject(ProcessInfo));
  end;

  WTSFreeMemory(ProcessInfoArray);
end;

Sådan her (roughtly)

Jens B