Картинка вместо курсора
Категория: Delphi/Pascal
2012-11-27 16:10:36
Создай файл *.rc Например такое содержимое
code: #delphi
OkPic BITMAP ok.bmp InProc BITMAP inproc.bmp ErrPic BITMAP err.bmp
Значит, мы хотим в программы вклеить 3 картинки. Первое слово - название ресурса, второе - тип ресурса (в нашем случае картинка BMP... а можно что угодно... например, аудио, видео и т.п.), а последнее слово - имя файла.
Потом с помощью программы brc32.exe или brcc32.exe (не помню точно... давно этим не занимался) твой файл *.rc можно переделать в *.res
Просто запусти brcc32.exe file.rc
В самой программе после строки implementation есть строка {$R *.dfm}... следующей строкой добавь еще {$R file.res} Теперь при компиляции в твою программу будут записываться те три картинки.
Вызвать можно например так:
code: #delphi
hResource:=LoadResource(hInstance, FindResource(hInstance, 'okpic'#0, RT_BITMAP)); LockResource(hResource); Pics := TBitMap.Create; Pics.LoadFromResourceName(0,'okpic'); FreeResource(hResource);
где hResource : Cardinal; Pic : TBitmap;
автор: Humanoid
Поделиться: