Foros Club Delphi - Detectar GPU

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Detectar GPU (https://www.clubdelphi.com/foros/showthread.php?t=69502)

Hola a todos,
¿alguien sabe cómo averiguar el modelo de GPU de nuestra tarjeta gráfica?. Necesito conocer el código porque no puedo utilizar componentes externos ya que programo con Turbo Delphi.

Saludos...
Miguel Angel

http://neftali.clubdelphi.com/?p=667

Insertas el código fuente del componente respectivo y ya.

Hola,
he descargado los componentes incluidos las fuentes pero no se incluir un componente en mi programa.

Lo he intentado añadiendo en el uses el .pas correspondiente al componente que quiero utilizar pero luego no se acceder a sus funciones.

¿Puedes explicármelo?

Saludos...
Miguel Angel

Colocas el archivo fuente en el mismo directorio de tu aplicación. Luego en el código fuente TUYO, dentro del USES, colocas el nombre que corresponda al del componente.

Ej.:

Código Delphi [-]uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, GPU;

Finalmente llamas a las funciones como por ejemplo

Código Delphi [-]Edit1.text:= GPU.Frecuency;

Hola,
así no me funciona. Estoy investigando creando un componente en tiempo de ejecución.

Saludos...
Miguel Angel

Hola,
ya he podido utilizar los componentes en TurboDelphi. Yo utilizo el TDisplayInfo:

He tenido que añadir al directorio de la aplicación:

CDisplayInfo.pas
CWMIBase.pas
FormAbout.dfm
FormAbout.pas
UConstantes.pas
UProcedures.pas
WbemScripting_TLB.pas

Un pequeño ejemplo:

Código:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,CDisplayInfo;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  GPU : TDisplayInfo;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo1.Lines.Add('DeviceName: ' + GPU.DisplayProperties.DeviceName);

  Memo1.Lines.Add('Caption: ' + GPU.DisplayProperties.Caption);

  Memo1.Lines.Add('Description: ' + GPU.DisplayProperties.Description);

  Memo1.Lines.Add('DitherTypeAsString: ' + GPU.DisplayProperties.DitherTypeAsString);

  Memo1.Lines.Add('DriverVersion: ' + GPU.DisplayProperties.DriverVersion);

  Memo1.Lines.Add('SettingID: ' + GPU.DisplayProperties.SettingID);

  Memo1.Lines.Add('Height: ' + inttoStr(GPU.DisplayProperties.PelsHeight));

  Memo1.Lines.Add('Width: ' + inttoStr(GPU.DisplayProperties.PelsWidth));

  Memo1.Lines.Add('DisplayFrequency: ' + inttostr(GPU.DisplayProperties.DisplayFrequency));

  Memo1.Lines.Add('SpecificationVersion: ' + inttostr(GPU.DisplayProperties.SpecificationVersion));

end;



procedure TForm1.FormCreate(Sender: TObject);

var

  error : boolean;

begin

  GPU := TDisplayInfo.Create(nil);

  GPU.Active := True;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

  GPU.Free;

end;



end.

Saludos...
Miguel Angel