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

本文整理自网络，侵删。

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

相关阅读 >>

Delphi使用zlib压缩和解压文件

Delphi memo 自动滚动到最底下

使用idhttp抓取百度和google会出错

Delphi多媒体函数

Delphi firedac fdconnection 事务

Delphi removedir 删除文件夹

Delphi opendialog文件过滤类型

Delphi memo 的当前行、当前列与当前字符

Delphi 释放bitmap

Delphi 24位真彩色图形转化为ico文件

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

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