Немного помутил
Вот что получилося
Sniper_sur.7z
Только вот что курсор лежит рядом с файлом (SNIPER.cur) не нравится
Может как то можно напрямую из ресурса его загружать ?
З.Ы. Вот. Теперь из ресурсов грузится
Код:
uses
....
const //Сразу после подключаемых
crMyCursor = 5;
type
TForm1 = class(TForm)
....
implementation
{$R *.dfm}
{$R SNIPER.res} //Файл с курсором
{=========== Загрузка ================}
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[CrMyCursor]:= LoadCursor(hInstance, 'SNIPER'); // 'SNIPER' - имя курсора в ресурсах
end;
{=========== использование ================}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Cursor:=LoadCursor(HInstance, 'SNIPER');
Screen.Cursor:= crMyCursor;
end;