delphi 编程技巧

				检测驱动器类型 (2000年8月16日) 
				
				本站更新  分类:   作者:srw  推荐:   阅读次数:513  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				
				
				当要知道所选的驱动器属于什么类型时，请看下面的程序
				var x:integer;
				driver:pchar;
				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;