Mega Code Archive

 

Categories / Delphi / Examples

 

How to mount a share

Title: How to mount a share 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.