Handling Windows Messages 

delphi.about.com/od/windowsshellapi/a/aa020800a.htm

THook Delphi Class

delphi.about.com/od/windowsshellapi/a/delphi-hooks.htm

Monitoring Registry Changes

delphi.about.com/library/nosearch/npf052003.htm

delphi.about.com/od/fullcodeprojects/Free_Source_Code_Delphi_Projects.htm

And an interesting resources performance monitor:

delphi.about.com/gi/o.htm?zi=1/XJ/Ya&zTi=1&sdn=delphi&cdn=compute&tm=1466&f=22&tt=14&bt=1&bts=1&st=34&zu=http%3A//www.drbob42.com/delphi/resmon.htm

msdn.microsoft.com/en-us/library/ms681385(v=VS.85).aspx

blogs.msdn.com/tonyschr/archive/2005/05/25/desktop-heap-limitations.aspx

https://delphi.about.com/od/windowsshellapi/u/advanced_delphi.htm

https://delphi.about.com/library/nosearch/npf091101.htm

  var
    NetResource : TNetResource;
  begin
    NetResource.dwType := RESOURCETYPE_DISK;
    NetResource.lpLocalName := 'm:'; {use here letters A-Z that are not already mapped}
    NetResource.lpRemoteName := '\\computer_name\resource_name';
    NetResource.lpProvider := '';
    WNetAddConnection2(NetResource, '[password]', '[user]', CONNECT_UPDATE_PROFILE);
  end;

For disconnecting the resource:

  function DisconnectNetworkDrive(const drive : string; const force, restore, displayError : boolean) : DWORD;
    // force: should disconnection occur if there are open files or jobs on the connection
    // restore: should continue to restore the connection at the next logon
    // displayError: show the failure reason if any
    var
      return, dwFlags : DWORD;
    begin
      if restore then
        dwFlags := CONNECT_UPDATE_PROFILE
      else
        dwFlags := 0;
      return := WNetCancelConnection2(PChar(drive), dwFlags, force);
      if (return <> NO_ERROR) and (displayError) then
      begin
        Application.MessageBox(PChar('Could not disconnect, reason:' + #13#10 + SysErrorMessage(GetLastError)),
          'DisconnectNetworkDrive', MB_OK);
      end;
      result := return;
    end;

Or just connect to the resource, no mapping:

function ConnectServer(path: string): boolean;
var
  res : TNetResource;
  reslt : Cardinal;
begin
  if (sUser <> '') and (sPass <> '') then
  begin
    res.dwType  := RESOURCETYPE_DISK;
    res.lpLocalName := nil;
    res.lpRemoteName := PChar(path);
    res.lpProvider := nil;

    reslt := WNetAddConnection2(res, PWideChar(sPass),
      PChar(sUser), CONNECT_UPDATE_RECENT or CONNECT_TEMPORARY);

    if reslt <> NO_ERROR then
    begin
      WriteLn('Cannot connect to destination server with supplied credentials' + #13#10 + 'Error code = ' + IntToStr(reslt));
      WriteLn('  Credentials used were: ' + sUser + ' - ' + sPass);
      Result := false;
    end
    else
      Result := true;
  end
  else
    // if empty credentials, consider that connect/disconnect are disabled
    Result := true;
end;

Interesting article:

https://www.developsense.com/blog/2009/08/testing-vs-checking/

... and interesting site:

https://www.testingreflections.com/

Process performance info:

Global system performance info:

Building the documentation...

Raw data to be obtained after running the performance routines:

  type
    TPerformance_Information = packed record
      GlobalMemory_MemoryLoad : Double;
      GlobalMemory_TotalPhys : Double;
      GlobalMemory_AvailPhys : Double;
      GlobalMemory_TotalPageFile : Double;
      GlobalMemory_AvailPageFile : Double;
      GlobalMemory_TotalVirtual : Double;
      GlobalMemory_AvailVirtual : Double;
      ProcessMemory_WorkingSetSize : Double;
      ProcessMemory_Size : Double;
      ProcessMemory_Peak : Double;
      ProcessMemory_PageFault : Double;
      GlobalCPUUsage : Double;
      ProcessCPUUsage : Double;
      ActionTime : Double;
    end;

Interesting stuff: Pushing the limits of Windows