如何判断程序所在目录是移动硬盘,或者是U盘(100分)

比如我的程序是放在U盘中运行,那我怎么知道我的程序所在的目录是U盘.

先取出程序所在路径的盘符,再判断是什么类型
procedure CheckDriver;
var
x:integer;
driverchar;
begin
driver:='f:/';
x := GetDriveType(driver);
Case x of
2: Label1.Caption := '该驱动器是可移动驱动器';
3: Label1.Caption := '该驱动器是固定驱动器';
4: Label1.Caption := '该驱动器是网络驱动器';
5: Label1.Caption := '该驱动器是CD-ROM驱动器';
6: Label1.Caption := '该驱动器是虚拟驱动器';
Else Label1.Caption := '该驱动器无效';
End;
end;

谢谢