Ordner Freigeben mit delphi

[kingflo]

Hallo und einen wunderschönen guten Tag....

Ich habe mal eine kleine Frage von einem Freund, der sich warum auch immer nicht registrieren will (so ein dussel) .

zitat der Frage ab hier:

Kann ich auf leichte Art einen Ordner im Netzwerk bzw im Internet freigeben?

Ich habe mal ein Programm gemacht (schon etwas her) welches übers Netzwerk und übers internet miteinander kommuniziert. Jetzt nach langerzeit würde ich daran ganz gerne weiterarbeiten. Die nächste funktion soll so aussehen, das man mit einem DirectoryDialog einen Ordner auswählen kann, und diesesn dann freigeben kann. Um z.B einem Freund, oder Kollegen datein zu geben.

die Variable des ausgewählten Ordner heißt FreeDir vom typ string. So und jetzt müsste dieser Ordner Freigegeben werden.

Wichtig: Ich müsste natürlich auch wissen, wie man die Freigabe wieder aufhebt, da nach der beendung des Programms natürlich alle Freigegebenen Ordner aus gründen der Sicherheit wieder für die Öffentlichkeit gesperrt werden sollen.