Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Dephi返回当前所在磁盘驱动器的盘符 →→→→→进入此内容的聊天室

来自 , 2020-11-19, 写在 Delphi (Object Pascal), 查看 130 次.
URL http://www.code666.cn/view/fcf55a30
  1. function CurentDrive: Char;
  2. var
  3.   Dir: string; // current drive as string
  4. begin
  5.   GetDir(0, Dir);
  6.   Result := Dir[1];
  7. end;

回复 "Dephi返回当前所在磁盘驱动器的盘符"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666