library DemoMmf;

uses
  SysUtils,Classes, MmfUtl in 'MmfUtl.pas';

exports
  GetValue, SetValue;
end.

unit MmfUtl;

interface

uses
  Windows, SysUtils;

function GetValue: Integer; stdcall;
procedure SetValue(I: Integer); stdcall;

implementation

var
  Handle: THandle;
  Value: ^Integer;

function GetValue: Integer;
begin
  Result:= Value^;
end;

procedure SetValue(I: Integer);
begin
  Value^:= I;
end;

initialization
  Handle:= CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(Integer), 'bla-bla-bla_Demo');
  if Handle = 0 then raise Exception.Create('Проблема, однако, с созданием...');
  Value:= MapViewOfFile(Handle, FILE_MAP_WRITE, 0, 0, SizeOf(Integer));
finalization
  UnmapViewOfFile(Value);
  CloseHandle(Handle);
end.

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    btnGet: TButton;
    btnSet: TButton;
    Label1: TLabel;
    SpinEdit1: TSpinEdit;
    procedure btnGetClick(Sender: TObject);
    procedure btnSetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetValue: Integer; stdcall; external 'DemoMmf.dll';
procedure SetValue(I: Integer); stdcall; external 'DemoMmf.dll';

procedure TForm1.btnGetClick(Sender: TObject);
begin
  Label1.Caption:= IntToStr(GetValue);
  SpinEdit1.Value:= StrToInt(Label1.Caption);
end;

procedure TForm1.btnSetClick(Sender: TObject);
begin
  SetValue(StrToIntDef(SpinEdit1.Text, 0));
  BtnGet.Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Handle: THandle;
begin
  Handle:= LoadLibrary('DemoMmf.dll');
  Form1.Caption:=  Format('Чтение - адрес в памяти: %P', [GetProcAddress (Handle, 'GetValue')]) + ', ' + Format('Запись - адрес в памяти: %P', [GetProcAddress (Handle, 'SetValue')]);
  FreeLibrary(Handle);
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Label1: TLabel;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,m,k,j,b,a:integer;
implementation

{$R *.dfm}

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var u:integer;
begin
  for i:=0 to 9 do
  begin
    u:=random(50)-25;
    StringGrid1.cells[i,0]:=inttostr(u);
    StringGrid1.cells[i,1]:='';
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
m:=9;
for i:=0 to 9 do
begin
StringGrid1.cells[i,1]:=StringGrid1.cells[i,0];
end;
for i:=0 to m-1 do
  begin
    k:=i;
    for j:=i+1 to m do
    if strtoint(StringGrid1.cells[j,1])<strtoint(StringGrid1.cells[k,1])
    then k:=j;
    if k>1 then
    begin
    a:= strtoint(StringGrid1.cells[i,1]);
    StringGrid1.cells[i,1]:=StringGrid1.cells[k,1];
    StringGrid1.cells[k,1]:=inttostr(a);
    end;
    end;
    end;




procedure TForm1.BitBtn3Click(Sender: TObject);
begin
m:=9;
for i:=0 to 9 do
begin
StringGrid1.cells[i,2]:=StringGrid1.cells[i,0];
end;
for i:=1 to m do
BEGIN
  for j:=1 to m-1 do
  if strtoint(StringGrid1.cells[j,2])>strtoint(StringGrid1.cells[i,2]) then
    begin
      a:=strtoint(StringGrid1.cells[i,2]);
      StringGrid1.cells[i,2]:=StringGrid1.cells[j,2];
      StringGrid1.cells[j,2]:=inttostr(a);
      end;
      end;
    end;



end.

m := 9;
for i:=0 to 9 do
begin
StringGrid1.cells[i,3]:=StringGrid1.cells[i,1];
StringGrid1.cells[i+M+1,3]:=StringGrid1.cells[i,2];
end;

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MMSystem, gkgSndUtl, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    msP: TMemoryStream; // Для точки
    msD: TMemoryStream; // Для тире
    sndDFP: Longword; // Продолжительности звучания для точки
    sndFrequency, sndVolume: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  msP:= TMemoryStream.Create;
  msD:= TMemoryStream.Create;
  sndFrequency:= 1000;
  sndVolume:= 85;
  sndDFP:= 50;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  msD.Free;
  msP.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  msP.Clear; // Перед созданием нового звука обязательно очистить
             // или добавить в gkgSndUtl, сразу после begin сточку: MS.Clear;
  SndCreate(msP, sndFrequency, sndDFP, sndVolume); // Создаем звук для точки.
  msD.Clear; // Перед созданием нового звука обязательно очистить.
  SndCreate(msD, sndFrequency, sndDFP * 3, sndVolume); // Создаем звук для тире.
// Начало передачи ;)
  SndPlay(msD);  // тире
  Sleep(sndDFP); // пауза
  SndPlay(msP);  // точка
  Sleep(sndDFP);
  SndPlay(msP);
  Sleep(sndDFP);
  SndPlay(msD);
  Sleep(sndDFP);
  SndPlay(msD);
  Sleep(sndDFP);
  SndPlay(msP);
end;