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

Previous  Top  Next

    
 

 

 

Code:

{  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.

 

©Drkb::04617

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php