cpuinfo.~dpr

来自「pipe类 pipe类 pipe类 pipe类 pipe类」· ~DPR 代码 · 共 28 行

program CPUInfo;

uses
  FastMM4,
  Forms,
  Windows,
  MainUn in 'MainUn.pas' {MainFrm},
  CITools in '..\CITools\CITools.pas';

{$R *.res}

var UM, FW: THandle;
begin 
  UM:=CreateFileMapping($FFFFFFFF,nil,PAGE_READONLY,0,32,'OSCIMapping');
  if UM=0 then halt
          else
          if GetLastError=ERROR_ALREADY_EXISTS then
            begin
              FW:=FindWindowEx(0,0,nil,'OverSoft CPU Informer');
              if FW<>0 then SetForegroundWindow(FW);
              halt;
            end; 
  Application.Initialize;
  Application.Title := 'OverSoft CPU Informer';
  Application.CreateForm(TMainFrm, MainFrm);
  Application.Run;
end.