library Physics_Resource; // 08.Листопада.2021
                          // 16.Листопада.2021

uses
  ShareMem,
  Winapi.Windows,
  System.SysUtils,
  Vcl.StdCtrls,
  Vcl.ComCtrls,
  Winapi.MMSystem,
  System.Classes;

{$R *.res}
{$R PhysicsText.res}
{$R PhysicsSound.res}

 {*****************************************************************************}
procedure DefinitionTextPlay(ResourceName: String; Play: Boolean;
                                                  Editor: TCustomMemo); StdCall;
var
 Text: TResourceStream;
 Buffer: TRichEdit;
begin
 Buffer := Nil;
 Text := Nil;
 try
  try
   Text := TResourceStream.Create(HInstance, 'T ' + ResourceName,
                                  RT_RCData); // Завантажуємо в змінну Text текстовий ресурс
  except
   on e: EResNotFound do               // Якщо ресурс не знайдено!
   begin
    Text := TResourceStream.Create(HInstance, 'T Визначення не знайдено',
                                   RT_RCData); // Завантажуємо в змінну Text текстовий ресурс
   end;
  end;
  Buffer := TRichEdit.Create(Editor);  // Створюємо динамічний компонент RichEdit ВЛАСНИК (Owner) Editor
  Buffer.Parent := Editor;             // Змінній Buffer присвоюємо властивість БАТЬКІВСЬКИЙ (Parent) Editor
  Buffer.Visible := True;
  Buffer.Lines.LoadFromStream(Text);   // Завантажуємо змінну Text в RichEdit
  Editor.Lines.Add(Buffer.Text);       // Додаємо текст в редакторі
  Editor.Lines.Add('');                // Додаємо порожній рядок в редакторі
 finally
  Buffer.Free;                         // звільняємо пам'ять змінної Buffer
  Text.Free;                           // звільняємо пам'ять змінної Text
 end;

 if Play = True then // Якщо Zvuk увімкнено і змінна Play має значення істина то...
                   // Програємо ресурс з назвою яку зберігаз змінна ResourceName
  PlaySound(PChar('S ' + ResourceName), 0, SND_RESOURCE or SND_ASYNC)
 else                         // Інакше якщо змінна Play має значення хиба то...
                              // Програємо ресурс

  if Play = False then
  PlaySound('S Визначення не знайдено', 0, SND_RESOURCE or SND_ASYNC);
end;
 {*****************************************************************************}

  Exports
    DefinitionTextPlay;

begin

end.

library Physics_Resource; // 08.Листопада.2021
                          // 16.Листопада.2021

uses
  ShareMem,
  Winapi.Windows,
  System.SysUtils,
  Vcl.StdCtrls,
  Vcl.ComCtrls,
  Winapi.MMSystem,
  System.Classes;

{$R *.res}
{$R PhysicsText.res}
{$R PhysicsSound.res}

begin

end.

procedure TForm1.Button2Click(Sender: TObject);
var
  DLLHandle: integer;
  hRes: THandle;
  pRes: Pointer;
begin
  DLLHandle := LoadLibrary('Physics_Resource.dll');
  hRes := LoadResource(DLLHandle, FindResource(DLLHandle, 'S_ПОЛЕ', RT_RCDATA));
  try
    pRes := Nil;
    pRes := LockResource(hRes);
    if pRes = nil then
     begin
      if pRes = Nil then
        ShowMessage('pRes = Nil');
        ShowMessage('Ресурс не найдено!');
      Exit;
     end;
    PlaySound(pRes, 0, SND_RESOURCE or SND_ASYNC);
  finally
    FreeResource(hRes);
    FreeLibrary(DLLHandle);
  end;
end;