Delphi - база знаний


Как сделать mount?


Как сделать mount?




  The following example shows a Linux-Console application, which mount 
  the floppy. 
}
 

program Project1; 

{$APPTYPE CONSOLE} 
uses 
  Libc; 

begin 
  if mount('/dev/fd0', '/mnt/floppy', 'vfat', MS_RDONLY, nil) = -1 then 
    WriteLn('Mount return : ', Errno, '(', strerror(errno), ')') 
  else 
    WriteLn('Floppy mounted'); 
end



Взято с сайта



Начало  Назад  Вперед



Книжный магазин