API？CPU？内存？你可知，50？

http://www.csdn.net/expert/topic/111/111286.shtm

解决方案 »

  1.   

    GlobalMemoryStatus、GetSystemInfo等，查Windows API
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
            systeminfo: SYSTEM_INFO;
            memory: MEMORYSTATUS;
    begin
            Memo1.Lines.Clear();
            //获得CPU型号
            GetSystemInfo(systeminfo);
            Memo1.Lines.Add('您的CPU类型是:' + inttostr(systeminfo.dwProcessorType));        //获得内存状态
            memory.dwLength := sizeof(memory); //初始化
            GlobalMemoryStatus(memory);
            Memo1.Lines.Add('您的物理内存是(' + inttostr(integer(memory.dwTotalPhys div 1024 div 1024)) + 'MB)。');
            Memo1.Lines.Add('其中可用内存是(' + inttostr(integer(memory.dwTotalPhys div 1024)) + 'KB)。');end;
      

  3.   

    直接运行 windows 的系统工具下的系统信息；procedure TForm1.Button1Click(Sender: TObject);
    begin
    // Shellexecute(handle,'open',C:\Program Files\Common Files\Microsoft Shared\MSINFO\MSINFO32.EXE',nil,nil,SW_SHOWNORMAL);
     winexec('C:\Program Files\Common Files\Microsoft Shared\MSINFO\MSINFO32.EXE',SW_ShowNormal);
    end;
      

  4.   

      ShellAbout(Self.Handle,'MyAPP','This is My Tips',Self.Icon.Handle);
      

  5.   

    Shellexecute怎样调用相对路径下的执行文件？