问题解决，下午揭贴

Question

我怎样得到本机操作系统的当前盘符？

Answer 1

Function GetSystemDir : string ;
var
   sysdir : array [0..50] of char;
begin
  windows.GetSystemDirectory(sysdir,50);
  result := sysdir+'\';
end;
这个函数可以得到系统目录，盘符当然就可以了。

Answer 2

接着上面同志的话：GetSystemDir得到系统目录之后，再通过
function ExtractFileDrive(const FileName: string): string;
就可以获得系统盘符了

Answer 3

windows.GetSystemDirectory(sysdir,50);读出来想节哪段都行

Answer 4

Function GetSystemDir : string ;
var
   sysdir : array [0..50] of char;
begin
  windows.GetSystemDirectory(sysdir,50);
  result := sysdir+'\';
end;
 Str:=ExtractFileDrive(result);
你们的意思这样？