systeminfo.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 28 行

// SystemInfo.lnl

application PE GUI entry main;

include "Windows.inc";

type SYSTEM_INFO {
    dword dwOemID;
    dword dwPageSize;
    dword lpMinimumApplicationAddress;
    dword lpMaximumApplicationAddress;
    dword dwActiveProcessorMask;
    dword dwNumberOfProcessors;
    dword dwProcessorType;
    dword dwAllocationGranularity;
    dword dwReserved;
}

SYSTEM_INFO SI;
string buffer[256];

frame main();
    GetSystemInfo(@SI);
    Format(buffer,
           "dwOemID=%d\ndwPageSize=%d\nNumberOfProcessors=%d\nProcessorType=%d", 
           SI.dwOemID,SI.dwPageSize,SI.dwNumberOfProcessors,SI.dwProcessorType);
    MessageBox(0,buffer,"System.Info",1);
end;