delphi获取操作系统安装磁盘盘符

本文整理自网络，侵删。

 
//获取操作系统安装磁盘盘符 delphitop.com
function GetSysDisk: String;
var
s: PChar;
begin
GetMem(s,255);
GetSystemDirectory(s,255);
Result := Copy(s,1,1)+':\';
FreeMem(s);
end;
 

相关阅读 >>

Delphi2010 关于record类型rtti反射的用途和方法

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi cef4 忽略不安全网站

Delphi 如何检测你的电脑日期或时间的变化

Delphi删除文件

Delphi中stringgrid删除行

Delphi 根据关键字取关键词以后的字符串

Delphi fdconnection1.gettablenames 查看所有表包含用户表和系统表

Delphi tfilestream和tmemorystream分别读取、创建、合并文件

Delphi 各种tstream(流)介绍

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi获取操作系统安装磁盘盘符