2013年12月17日
Delphi控制台获取系统信息
摘要： program Project2;{$APPTYPE CONSOLE}usesWindows,SysUtils,TLHelp32; {$R *.RES} function GetWinDir: string; var Buf: array[0..MAX_PATH] of char; begin GetSystemDirectory(Buf, MAX_PATH); Result := Buf; if Result[Length(Result)] '\' then Result := Result + '\'; end; //取本机的计算机名 function... 阅读全文
posted @ 2013-12-17 21:54 內個誰²º¹³ 阅读(303) 评论(0) 推荐(0)