如何实现将c盘共享

Question

我想实现当程序运行时将本地机器的c盘设为共享,这样该如何实现啊?

Answer 1

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/stgmgmt/fs/netshareadd.asp

Answer 2

请问有delphi的例子吗?要得比较急,我c语言不太熟,高手帮帮忙啊

Answer 3

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
  end;function NetShareAdd(ServerName: PChar; Level: Integer; Buf: PChar; var parm_err: Integer): DWord; stdcall; external 'NETAPI32.DLL';var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  I:      Integer;
  Buff:   PANSIChar;
  Dir:    string;
begin
  I := 0;
  Dir := 'C:\Documents and Settings\user\Desktop\Messenger';
  ForceDirectories(Dir);
  Buff := 'Messenger1';
  NetShareAdd('Emo', 502, Buff, I);
end;end.

Answer 4

在程序中运行命令:
net share c$ c: