自己写的一个DELPHI 控制台程序

最新推荐文章于 2016-12-21 10:53:00 发布

xhh2001

最新推荐文章于 2016-12-21 10:53:00 发布

阅读量3.8k

点赞数

分类专栏： DELPHI 文章标签：电脑应用 Delphi 控制台 Windows

本文链接：https://blog.csdn.net/xhh2001/article/details/8948636

版权

本文介绍了一篇关于如何用Delphi编程语言创建一个控制台应用程序的实践过程，通过提供的代码展示了具体实现。

摘要由CSDN通过智能技术生成

代码如下：

// 经过整理的DELPHI控制台程序，体积小，功能不少。呵呵  --XIAO 2013.5
program Console;

{$APPTYPE CONSOLE}

uses
Windows,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 ComputerName: string;
  var
  FStr: PChar;
  FSize: Cardinal;
begin
  FSize := 255;
  GetMem(FStr, FSize);
  GetComputerName(FStr, FSize);
  Result := FStr;
  FreeMem(FStr);
end;
//取Windows登录用户名
function WinUserName: string;
  var
  FStr: PChar;
  FSize: Cardinal;
begin
  FSize := 255;
  GetMem(FStr, FSize);
  GetUserName(FStr, FSize);
  Result := FStr;
  FreeMem(FStr);
end;

//获取系统所有驱动器
procedure U