سلام دوستان.مي خوام چند تا شماره سريال از usb بخونم. چطور با كد دلفي بنويسمش؟ تشكر قبلي از كمكت
با سلام
از تابع زیربا سلیقه خودت موفق باشید.
procedure GetMemDrives(var str:string);
const
drv:array[0..25]of pchar =('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s',
't','u','v','w','x','y','z');
var
n:Byte;
begin
str:='';
for n := 0 to 25 do
if (GetDriveType(pchar(drv[n]+':')) =2){MemDrive} then
str:=str+drv[n];
end;