Hi,
ich möchte unter Windows 98 mit Delphi einen Ordner freigeben. Ich habe die Funktion NetShareAdd wie folgt verwendet:
procedure TForm1.Button1Click(Sender: TObject);
var
buf: share_info_50;
Error: Word;
begin
with buf do
begin
shi50_netname := 'TEST';
shi50_type := STYPE_DISKTREE;
shi50_flags := SHI50F_FULL;
shi50_remark := nil;
shi50_path := 'c:\test';
shi50_rw_password := '';
shi50_ro_password := '';
end;
NetShareAdd(nil, 50, @buf, Error);
end;
Ich bekomme eine Fehlermeldung (EAccessViolation) und weiß nicht, warum.
Kann mir jemand helfen? Oder gibt es eine einfachere Möglichkeit, um Ordner unter Win9X freizugeben?
Danke im Voraus.
c ya
DocBrown
ich möchte unter Windows 98 mit Delphi einen Ordner freigeben. Ich habe die Funktion NetShareAdd wie folgt verwendet:
procedure TForm1.Button1Click(Sender: TObject);
var
buf: share_info_50;
Error: Word;
begin
with buf do
begin
shi50_netname := 'TEST';
shi50_type := STYPE_DISKTREE;
shi50_flags := SHI50F_FULL;
shi50_remark := nil;
shi50_path := 'c:\test';
shi50_rw_password := '';
shi50_ro_password := '';
end;
NetShareAdd(nil, 50, @buf, Error);
end;
Ich bekomme eine Fehlermeldung (EAccessViolation) und weiß nicht, warum.
Kann mir jemand helfen? Oder gibt es eine einfachere Möglichkeit, um Ordner unter Win9X freizugeben?
Danke im Voraus.
c ya
DocBrown
Comment