Как сделать mount?
Falk0ner, вс, 06/07/2008 - 15:35.
{ 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.
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.
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Отправить комментарий