Moin,
habe folgendes Problemchen:
möchte gerne in einer For-Schleife entstehenden Ergebnisse in einer Liste ausgeben.
Der jetzige Code gibt nur den letzten der Werte im Panel aus. Ich hätte aber gerne eine Liste mit alles Werten.
Delphi-Quellcode:
begin
WMI:=CreateOleObject('
WbemScripting.SWbemLocator');
wmiService :=
wmi.ConnectServer('
.', '
root\wmi');
nicstatus := wmiService.InstancesOf('
MSNdis_MediaConnectStatus');
p := nicstatus._NewEnum;
p.QueryInterface(IEnumVariant, Enum);
hilf := 0;
i := nicstatus.Count;
for cnt := 0
to i - 1
do
begin
Enum.Next(1, card, F);
connected := card.NdisMediaConnectStatus;
if (connected = 0)
then
begin
Status := '
verbunden';
end
else
begin
Status := '
nicht verbunden';
end;
Panel1.Caption := card.InstanceName + '
: ' + status;
end;
end;
[edit=SirThornberry]"diein" durch "in" ersetzt - Mfg, SirThornberry[/edit]