Detectar GPU

[madiazg]

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

[MAXIUM]

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

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

[madiazg]

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

[MAXIUM]

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;

[madiazg]

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

Saludos...
Miguel Angel

[madiazg]

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:

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