ANTICHAT — форум по информационной безопасности, OSINT и технологиям

const
  MyConst = 100;
.-.-.-.-.-.
Screen.Cursors[MyConst] := LoadCursor(hInstance,'MYCURSOR');
Screen.Cursor := MyConst;

// При создании фотрмы добавить новый шрифт, что хранится в ресурсах
procedure TForm1.FormCreate(Sender: TObject);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(hInstance, 'MY_FONT', Pchar('ANYOL1'));
Res.SavetoFile('MYFONT.ttf');
Res.Free;
AddFontResource(PChar('MYFONT.ttf'));
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

// Испольхзование
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Font.Name := 'MYFONT';
end;

// Удаление
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar("MYFONT.ttf"))
SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

uses jpeg;
-.-.-.-.-
procedure LoadJPEGfromEXE;
var
  MyJPG: TJPEGImage; // Объект - JPEG
  ResStream: TResourceStream; // Объект - поток ресурсов
begin
  try
    MyJPG := TJPEGImage.Create;
    ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
    MyJPG.LoadFromStream(ResStream);
    Canvas.Draw(12, 12, MyJPG);
  finally
    MyJPG.Free;
    ResStream.Free;
  end;
end; // procedure