Как сделать 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