hi,
wenn es geht ohne *wmi...
ich habe da auch schon evtl. was passendes gefunden:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure GetVideoCard(List:TStringList);
var
lpDisplayDevice: TDisplayDevice;
dwFlags: DWORD;
cc: DWORD;
begin
List.Clear;
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
dwFlags := 0;
cc:= 0;
while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do
begin
Inc(cc);
List.add(lpDisplayDevice.DeviceString);
end;
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
var
mylist:tstringlist;
begin
mylist:=TStringList.create;
GetVideoCard(mylist);
showmessage(mylist.Text);
mylist.free;
end; |
nur bekomme ich die versions info nicht, wo steht die.
ist sie überhaupt TDisplayDevice vorhanden?
cu
