Hi,
ich kapiere langsam gar nichts mehr.
Also: ich habe mir gerade von der Website des Autors (
http://members.chello.nl/m.vanbrakel2/) die aktuellen Übersetzungen heruntergeladen. Das ist die Version vom Mai 2004.
Alle alten Dateien gelöscht, überall nach Überresten gesucht und dann die Dateien in das Verzeichnis entpackt und dann versucht das ganze zu kompilieren. Es geht immer noch nicht. Bei deinem Code kommen die Fehler, wie bisher und bei dem veränderten wieder nur die ersten Buchstaben.
Es bleibt also bei folgendem Source, der nicht richtig funktioniert:
Delphi-Quellcode:
type
PSHARE_INFO_502 = ^_SHARE_INFO_502;
TShareInfo502Array = Array of _SHARE_INFO_502;
procedure ListNetShares(const sServer: PAnsiChar);
var
aShareBuffer: PSHARE_INFO_502;
aWorkBuffer: TShareInfo502Array;
dwEntriesRead: Cardinal;
i: integer;
lviNewItem: TListItem;
begin
NetShareEnum(sServer, 502, PByte(aShareBuffer), MAX_PREFERRED_LENGTH,
dwEntriesRead, dwEntriesRead, nil);
aWorkBuffer := TShareInfo502Array(aShareBuffer);
for i:=0 to dwEntriesRead - 1 do begin
lviNewItem := frmMain.lvShares.Items.Add;
lviNewItem.Caption := aWorkBuffer[i].shi502_netname;
end;
end;
Chris