Hi,
wenn ich den Code von dir 1-zu-1 übernehme bekomme ich immer noch den Fehler mit den formalen Parametern und soweiter. Allerdings dreimal: zwei Mal zusätzlich bei
@dwRead bzw.
@dwEntries.
Wenn ich den so anpasse, dass er diese Fehler nicht mehr angibt sieht das ganze so aus:
Delphi-Quellcode:
procedure TfrmMain.FormCreate(Sender: TObject);
var
shareBuffer: PSHARE_INFO_502;
s2: TShareInfo502Array;
dwRead, dwEntries: Cardinal;
i: Integer;
begin
NetShareEnum(nil, 502, Pointer(shareBuffer), DWORD(-1), dwRead, dwEntries, nil);
s2 := TShareInfo502Array(shareBuffer);
for i := 0 to dwRead - 1 do begin
ShowMessage(s2[i].shi502_netname);
end;
end;
Und es werden wieder nur der erste Buchstabe angezeigt.
Chris
PS: Nur um Missverständnisse vorzubeugen: ich habe die JwaLM auskommentiert und dafür deine Deklaration genommen.
