1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

//
// PSDK Sample
// ms-help://MS.PSDK.1033/fileio/base/mounting_a_volume_at_a_mount_point.htm
//
{$APPTYPE CONSOLE}
program mount;

uses
  Windows;

type
  TGetVolumeNameForVolumeMountPoint =
    function(lpszVolumeMountPoint, lpszVolumeName: PAnsiChar;
    cchBufferLength: dword): bool; stdcall;
  TSetVolumeMountPoint              =
    function(lpszVolumeMountPoint, lpszVolumeName: PAnsiChar):
    bool; stdcall;
const
  szKernelDll                       = 'kernel32.dll';
  BUFSIZE                           = MAX_PATH;
var
  GetVolumeNameForVolumeMountPoint  : TGetVolumeNameForVolumeMountPoint = nil;
  SetVolumeMountPoint               : TSetVolumeMountPoint = nil;
  dll                               : dword = 0;
  buf                               : array[0..BUFSIZE]of char;
  bFlag                             : boolean = false;
begin
  if(paramcount = 0) then
  begin
    WriteLn('mounts a volume at a mount point.');
    WriteLn('for example, "mount c:\mnt\fdrive\ f:\');

    // Laut PSDK müssen die Pfade einen Backslash am Ende haben!
    // Wer so ein Programm also professionell entwickelt,
    // sollte auch eine entsprechende Prüffunktion einbauen und
    // den Backslash ggf. automatisch ergänzen.


    exit;
  end;

  // load "kernel32.dll"
  dll := LoadLibrary(szKernelDll);
  if(dll <> 0) then
  try
    // import functions
    GetVolumeNameForVolumeMountPoint := GetProcAddress(dll,
      'GetVolumeNameForVolumeMountPointA');
    SetVolumeMountPoint              := GetProcAddress(dll,
      'SetVolumeMountPointA');

    if(@GetVolumeNameForVolumeMountPoint = nil) or
      (@SetVolumeMountPoint = nil) then exit;

      
    bFlag := GetVolumeNameForVolumeMountPoint(pchar(paramstr(2)),buf,BUFSIZE);
    if(not bFlag) then
    begin
      WriteLn('Retrieving volume name for "' + paramstr(2) + '" failed.');
      exit;
    end;

    WriteLn('Volume name of "' + paramstr(2) + '" is "' + buf + '"');

    bFlag := SetVolumeMountPoint(pchar(paramstr(1)),buf);
    if(not bFlag) then
      WriteLn('Attempt to mount "' + paramstr(2) + '" at "' +
      paramstr(1) + '" failed.');
  finally
    FreeLibrary(dll);
  end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

//
// PSDK Sample
// ms-help://MS.PSDK.1033/fileio/base/unmounting_a_volume_at_a_mount_point.htm

//
{$APPTYPE CONSOLE}
program unmount;

uses
  Windows;

type
  TDeleteVolumeMountPoint = function(lpszVolumeMountPoint: PAnsiChar):
    bool; stdcall;
const
  szKernelDll             = 'kernel32.dll';
  szSuccessMsg            : array[boolean]of string =
    ('failed','succeeded');
  BUFSIZE                 = MAX_PATH;
var
  DeleteVolumeMountPoint  : TDeleteVolumeMountPoint = nil;
  dll                     : dword = 0;
  bFlag                   : boolean = false;
begin
  if(paramcount = 0) then
  begin
    WriteLn('unmounts a volume from the volume mount point.');
    WriteLn('E.g. unmount c:\mnt\fdrive\');

    // Laut PSDK müssen die Pfade einen Backslash am Ende haben!
    // Wer so ein Programm also professionell entwickelt,
    // sollte auch eine entsprechende Prüffunktion einbauen und
    // den Backslash ggf. automatisch ergänzen.

    exit;
  end;

  // load "kernel32.dll"
  dll := LoadLibrary(szKernelDll);
  if(dll <> 0) then
  try
    // import function
    DeleteVolumeMountPoint := GetProcAddress(dll,'DeleteVolumeMountPointA');
    if(@DeleteVolumeMountPoint = nil) then exit;

    bFlag := DeleteVolumeMountPoint(pchar(paramstr(1)));

    WriteLn('unmount ' + szSuccessMsg[bFlag] + ' in unmounting ' +
      'the volume at "' + paramstr(1) + '"');
  finally
    FreeLibrary(dll);
  end;
end.