Windows Freigabe

[the_seed]

Hi, wie kann ich unter Win98/XP eine einfache Dateifreigabe machen?
das einzigste was ich gefunden hab ist -> freigabe....
aber das funktioniert nicht ich weiss auf jedenfall nicht für was
>

Code:

implementation

uses ipadresse;     <- diese unit steht bzw wo ich die finde

{$R *.dfm}

[the_seed]

kann mir den niemand weiter helfen

[Dani]

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;

[Christian Seehase]

Moin The Seed,

wo hast Du es denn versucht?
Unter XP oder 98?

Das von Dir gezeigte Beispiel ist, wenn ich nicht sehr irre, für die NT Schiene geeignet (NT/2000/XP).

[the_seed]

Zitat von Christian Seehase:

Moin The Seed,

wo hast Du es denn versucht?
Unter XP oder 98?

Das von Dir gezeigte Beispiel ist, wenn ich nicht sehr irre, für die NT Schiene geeignet (NT/2000/XP).

moin seehase,
versucht ist gut, in dem beispiel ist ne unit eingebunden die ich nirgends finden kann, hab schon alles abgegoogelt von wegen freigaben
ich hab nix gefunden keine kompo *nix* ...
ist das überhaupt möglich

[Christian Seehase]

Moin The Seed,

bist Du schon mal auf die Idee gekommen, diese Unit Angabe einfach wegzulassen?

[the_seed]

Zitat von Christian Seehase:

Moin The Seed,

bist Du schon mal auf die Idee gekommen, diese Unit Angabe einfach wegzulassen?

auf die idee bin ich gekommen, nur zeigt meine delphi ide tausend fehler an. -> probiere es selber

[Christian Seehase]

Moin The Seed,

Zitat von the_seed:

nur zeigt meine delphi ide tausend fehler an

ist es im Bereich des Möglichen, dass Du zu Übertreibungen neigst?

Ausser der genannten Unit könntest Du noch Variants, LmShare und LmAccess weglassen, sowie die var Deklarationen direkt vor implementation, da diese Angaben alle nicht benötigt werden.

Dann muss noch etwas hinzugefügt werden, nämlich zwei Konstanten

Delphi-Quellcode:

  STYPE_DISKTREE       = 0;    // aus LMShare.H
  ACCESS_ALL           = $7F;  // aus LMaccess.h

und eine Funktionsdeklaration

Delphi-Quellcode:

function NetShareAdd (
    const servername : PWChar;
    const level      : DWORD;
    const buf        : PByte;
    const parm_err   : PDWORD
    ) : NET_API_STATUS; stdcall; external 'netapi32.dll';

[Dani]

Hallo nochmal, hab meinen ersten Post jetzt editiert

[the_seed]

danke sehr deine unit funktioniert super