home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 July / CHIP_CD_2005-07.iso / software / att / attsetup.exe / plugins / api / delphi / example / plugin1 / plugin1.dpr next >
Text File  |  2004-04-06  |  1KB  |  41 lines
  1. library plugin1;
  2.  
  3. uses
  4.   Windows,SysUtils,
  5.   plugins in '..\..\plugins.pas';
  6.  
  7. {$R *.res}
  8. procedure get_plug_info(var Info:TPlugInfo);stdcall;
  9. begin
  10.      info.Menu_Text:='Sample plugin (Delphi)';
  11.      info.Sign:=ATT_Sign;
  12.      info.PuginType:=PL_STD;
  13. end;
  14.  
  15. procedure exec_plugin(Win_Handle:integer;ATT_Proc:Pointer);stdcall;
  16. var main_proc:Tatt_proc;
  17.     version:dword;
  18.     ss:array[0..255] of char;
  19.     result:string;
  20. begin
  21.      main_proc:=ATT_Proc;
  22.      main_proc(atc_getversion,nil,@version);
  23.      result:='Version of ATI Tray Tools is '+IntToStr(version and $FFFF0000 shr 16)+'.'+IntToStr(version and $FFFF)+^m;
  24.      fillchar(ss,256,0);
  25.      main_proc(atc_getDriverRegKey,nil,@ss);
  26.      result:=result+'Driver registry key is:'^m+StrPas(ss)+^m^m;
  27.  
  28.      main_proc(atc_getClocks,nil,@version);
  29.      result:=result+'Current clocks is GPU:'+IntToStr(version and $FFFF)+' - MEM :'+IntToStr(version and $FFFF0000 shr 16)+^m;
  30.      main_proc(atc_ReadDefaultClocks,nil,@version);
  31.      result:=result+'BIOS clocks is GPU:'+IntToStr(version and $FFFF)+' - MEM :'+IntToStr(version and $FFFF0000 shr 16);
  32.  
  33.      MessageBox(win_handle,pchar(result),'Information',mb_ok);
  34. end;
  35.  
  36. exports
  37.       get_plug_info name 'get_plug_info',
  38.       exec_plugin name 'exec_plugin';
  39. begin
  40. end.
  41.