Sorry hab zuerst gepostet und dann erst gelesen
Wenn ich ne gute Lösung finde werd ich sie hier posten
Edit: Okay, hab mal was zusammengeschustert
Für WinXP scheint es mal zu funktionieren. Siehe Dateianhang...
Die Funktion z.B. so verwenden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(SysErrorMessage(
SimpleNetShareAdd('TestShare', 'C:\ATI')));
end;