![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
#1
|
||||
|
||||
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.:
Finalmente llamas a las funciones como por ejemplo
|
#2
|
|||
|
|||
Hola,
así no me funciona. Estoy investigando creando un componente en tiempo de ejecución. Saludos... Miguel Angel |
#3
|
|||
|
|||
Hola,
ya he podido utilizar los componentes en TurboDelphi. Yo utilizo el TDisplayInfo: He tenido que añadir al directorio de la aplicación:
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. Miguel Angel |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Detectar llamadas a la api | Khronos | Varios | 1 | 27-05-2008 08:52:47 |
Detectar la ejecucion | mefixxto | OOP | 1 | 12-05-2008 20:51:39 |
Detectar ERROR | mjjj | Firebird e Interbase | 5 | 29-04-2008 07:17:22 |
Detectar IP | Carliviris | Varios | 3 | 17-04-2006 19:18:26 |
detectar spysoft | maruenda | Varios | 3 | 17-06-2004 15:33:04 |
![]() |
|