Wizard Software – All things Delphi (and some PHP)

CPU Speed Pro now celebrating just over a year of downloads. How many? 1,234,578 individual machines tested. We are very proud that cpu speed pro is so popular. Google are giving us a number one ranking for the cpu speed keywords, so kind. Happy birthday CPU Speed Pro.

www.cpuspeedpro.com

Software

A shameless plug for our newest flagship application: Net Meter Pro!

Monitor your computer’s internet bandwidth using Net Meter Pro, the powerful new all-in-one network tool. SEE the information flowing to and from your computer with dynamic real-time data graphs.

Read more at:

www.netmeterpro.com

Software net meter pro

I’ve just updated Password Safe to version 4. This is the latest incarnation of a Delphi application which was first conceived four years ago. Password Safe 4 contains updates to the encryption algorithm and changes to the the way the data is stored. Consequently, the database structure is not backwards compatible with earlier versions. I use encrypted XML to store the data, which is located in a sub folder of the application location. There are no ini or registry entries created and Password Safe 4 is fully portable, making it perfect for running from a thumb drive.

http://www.password-safe.net/

Software password safe

Recently I’ve been doing a lot of torrent downloading and wanted to shutdown my torrent computer after a specified period of time, so, I wrote the following short function, connect it to a TTimer and you’ve got an automatic (and well-behaved) means of shutting-down Windows XP, Vista and Windows 7.  The RebootParam is: EWX_POWEROFF or EWX_FORCE.

function MyExitWindows(RebootParam: Longword): Boolean;
var
  TTokenHd: THandle;
  TTokenPvg: TTokenPrivileges;
  cbtpPrevious: DWORD;
  rTTokenPvg: TTokenPrivileges;
  pcbtpPreviousRequired: DWORD;
  tpResult: Boolean;
const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    tpResult := OpenProcessToken(GetCurrentProcess(),
      TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      TTokenHd);
    if tpResult then
    begin
      tpResult := LookupPrivilegeValue(nil,
                                       SE_SHUTDOWN_NAME,
                                       TTokenPvg.Privileges[0].Luid);
      TTokenPvg.PrivilegeCount := 1;
      TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      cbtpPrevious := SizeOf(rTTokenPvg);
      pcbtpPreviousRequired := 0;
      if tpResult then
        Windows.AdjustTokenPrivileges(TTokenHd,
                                      False,
                                      TTokenPvg,
                                      cbtpPrevious,
                                      rTTokenPvg,
                                      pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

Delphi, Software shutdown source

Well! It took a while but we did it and here is the brand new release of our award-winning CPU speed measuring software.

We also created a new web site, separate from the WizardSoft site. Please take a look here:

http://www.cpuspeedpro.com/

CPU Speed Professional records processor speeds from all over the world. You can check your speed score in the worldwide ranking tables. Click the ranking button on the web site to view latestest CPU scores and performance table.

Software