频道分类

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

作者:admin 来源: 日期:2021/1/31 11:32:43 人气: 标签:

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

上一篇:delphi TFontDialog下一篇:没有资料