Ordner - Freigabe unter Windows 98

[DocBrown]

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

[Markus Fuchs]

Hi,<p>
schau dir mal folgendes an:<p>
http://www.entwickler-forum.de\webx?50@@.ee6f745<p>
Ich denke hiermit müsstest du deine Probleme lösen können.<p>
Gruß,<br>
Marku