Как определить видеокарту

Первая форма имеет кнопку. Создайте другую форму с memo

 
Procedure TForm1.button1click(Sender: TObject);
 
Var 
    lpDisplayDevice:   TDisplayDevice;
    dwFlags:   DWORD;
    cc:   DWORD;
Begin
    form2.memo1.Clear;
    lpDisplayDevice.cb := sizeof(lpDisplayDevice);
    dwFlags := 0;
    cc := 0;
    while EnumDisplayDevices(Nil, cc, lpDisplayDevice , dwFlags) Do
    Begin
        Inc(cc);
        form2.memo1.lines.add(lpDisplayDevice.DeviceString);
        {Так же мы увидим дополнительную информацию в lpDisplayDevice}
        form2.show;
    End;
End;
 
faq/delphi/system/detect_videocard.txt · Последние изменения: 2006/05/14 14:39 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki