开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
UseMemF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

UseMemF.pas：源码内容
  1. unit UseMemF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Spin, ComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Button2: TButton;
  13.     Button3: TButton;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     UpDown1: TUpDown;
  17.     Edit2: TEdit;
  18.     Button4: TButton;
  19.     Edit3: TEdit;
  20.     UpDown2: TUpDown;
  21.     Button5: TButton;
  22.     Edit4: TEdit;
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.     procedure Button3Click(Sender: TObject);
  26.     procedure Button4Click(Sender: TObject);
  27.     procedure Button5Click(Sender: TObject);
  28.   end;
  30. var
  31.   Form1: TForm1;
  33. implementation
  35. {$R *.DFM}
  37. function GetData: Integer; stdcall;
  38.   external 'dllmem.dll';
  39. procedure SetData (I: Integer); stdcall;
  40.   external 'dllmem.dll';
  41. function GetShareData: Integer; stdcall;
  42.   external 'dllmem.dll';
  43. procedure SetShareData (I: Integer); stdcall;
  44.   external 'dllmem.dll';
  46. procedure TForm1.Button1Click(Sender: TObject);
  47. begin
  48.   SetData (UpDown1.Position);
  49. end;
  51. procedure TForm1.Button2Click(Sender: TObject);
  52. begin
  53.   Edit2.Text := IntToStr (GetData);
  54. end;
  56. procedure TForm1.Button3Click(Sender: TObject);
  57. var
  58.   HDLLInst: THandle;
  59. begin
  60.   HDLLInst := SafeLoadLibrary ('dllmem.dll');
  61.   Label1.Caption := Format ('Address: %p', [
  62.     GetProcAddress (HDLLInst, 'SetData')]);
  63.   FreeLibrary (HDLLInst);
  64. end;
  66. procedure TForm1.Button4Click(Sender: TObject);
  67. begin
  68.   SetShareData (UpDown2.Position);
  69. end;
  71. procedure TForm1.Button5Click(Sender: TObject);
  72. begin
  73.   Edit4.Text := IntToStr (GetShareData);
  74. end;
  76. end.