Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Курсор в exe файле, Delphi 7 
:(
    Опции темы
Гость_Kostya
  Дата 5.8.2004, 16:16 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Помогите мне, пожалуйста, вот с такой проблемой:
Я хочу включить анимированный курсор в exe файл. Сделал файл “Cursor.rc” вот с такими строками:

Код
#define ANICURSOR 21
myCur ANICURSOR "C:\Cursors\Cur.ani"


Откомпилировал в Cursor.res
Вложил его в код программы:

…

Код
implementation

{$R *.dfm}
{$R Cursor.res}

procedure TForm1.FormCreate(Sender: TObject);
var
 hCur: HCURSOR;
begin
   hCur := LoadCursor(HInstance, PChar('myCur'));
     Screen.Cursors[1] := hCur;
     Screen.Cursor := 1;
     Form1.Cursor :=1;
   end;

…

Но курсор не загружается и в программе остаются прежние указатели. Подскажите, пожалуйста, что во всем этом не так???

  Вверх
_hunter
Дата 5.8.2004, 17:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



что тебе LoadCursor возврщает?
и нжно не Form1.Cursor :=1; а Form1.Cursor :=hCur;


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Гость_Kostya
Дата 5.8.2004, 19:14 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











_hunter: Дело в том, что анимированный курсор не загружается, а в место него грузятся обычные установленные для кнопок. Если можешь, напиши рабочий код, как загрузить анимированный курсор (*.ani) из самой программы (екзешника) sample.gif . Может проблема что
Код
LoadCursor
написана для обычного курсора, а я применяю его на анимированныйqstn.gif
  Вверх
_hunter
Дата 5.8.2004, 19:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



попробуй
Код
LoadImage(
   HInstance,
   PChar('myCur'),
   IMAGE_CURSOR,
   0,
   0,
   LR_DEFAULTSIZE or LR_LOADFROMFILE
);

и hCur типа THandle


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Гость_Kostya
Дата 5.8.2004, 21:03 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Пробовал - бесполезно. sad.gif
  Вверх
Burich-Caeser
Дата 6.8.2004, 01:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 109
Регистрация: 28.7.2004

Репутация: нет
Всего: 1



Обязательно зайди
http://www.team-x.ru/filez/sources.php
Где-то посередине страницы будет написано курсоры и 3 файла для скачивания...
Там инфы достаточно.
Даже есть библиотека специально для этого.
Удачи. biggrin.gif
--------------------
Ты брошен вниз силой судьбы,Ты унижен и раздавлен,Время забыть то, кем ты был,Но помнить, кем ты стал...
PM MAIL   Вверх
Guest
Дата 7.8.2004, 18:30 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Burich-Caeser: Попробую, спасибо smile.gif
  Вверх
dvamaster
Дата 8.8.2004, 07:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10



Загружай как ИКОНКУ LoadIcon и пользуй ее хендл.
У меня только так сработало.


--------------------
Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/
PM MAIL WWW ICQ   Вверх
The MASTER
  Дата 8.8.2004, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5



Проще всего:

Создаёшь файл *.RES т.е. (Файл ресурсов) естевственно со своим курсором!
А в программе пишешь :
Код
{$R CURSORS.RES}
const
crZoomIn = 1;  
crZoomOut = 2;  
Screen.Cursors[crZoomIn] := LoadCursor(hInstance, 'CURSOR_ZOOMIN');
Screen.Cursors[crZoomOut] := LoadCursor(hInstance, 'CURSOR_ZOOMOUT');


С вашей программой должен быть слинкован файл ресурсов, содержащий соответствующие курсоры или заменить зеленое на конкретное имя файла(он должен также поставляться с программой).

А если, что не так то я думаю там уже разберёшься сам, тут всё абсолютно просто! smile.gif
Успехов!

Это сообщение отредактировал(а) The MASTER - 8.8.2004, 14:17
PM MAIL WWW ICQ   Вверх
Гость_Kostya
Дата 9.8.2004, 16:21 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











The MASTER: FAQ я тоже читал smile.gif - ничего не получается sad.gif
  Вверх
Гость_Kostya
Дата 9.8.2004, 16:25 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











dvamaster: А можно поподробнее и в коде, пожалуйста smile.gif sample.gif
  Вверх
dvamaster
Дата 10.8.2004, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10



Код не сохранился, но примерно так:

Код

var
 VarCursor: HCURSOR;

VarCursor := LoadIcon(hInstance, 'CURSOR1');


т.е. хендл иконки (HICON) используешь как хендл курсора (HCURSOR).
Несмотри на типы. Все хенделы DWORD;


--------------------
Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/
PM MAIL WWW ICQ   Вверх
_hunter
Дата 10.8.2004, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98



и найди мне принципиальное различие между LoadImage() и LoadIcon() wink.gif


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Гость_Kostya
Дата 10.8.2004, 21:33 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Видимо проблема, пока еще, остается неразрешимой. Толи те, кто делали Delphi что-то не доделали, то ли я чего-то не знаю. Наверное, второе… smile.gif
Ну, может, есть хоть один человек, который знает, как именно это сделать а??? Специалисты помогите exclamation.gif exclamation.gif exclamation.gif

Help please
  Вверх
p0s0l
Дата 10.8.2004, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112



Не знаю, в чём там у тебя прикол, но вот сделал рабочий пример через LoadCursor. Не веришь - запусти...
Код:
Код
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
 public
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}
{$R Cursor.res}

procedure TForm1.FormCreate(Sender: TObject);
var
 hCur : HCURSOR;
begin
 hCur := LoadCursor (hInstance, 'myCur');
 Screen.Cursors[1] := hcur;
 Form1.Cursor := 1;
end;

end.

Тут же лежит файлик cur.ani, если его сменить, то надо запусть makeres.bat, состоящий из одной строки:
brcc32 cursor.rc

cursor.rc - почти такой же, как и у тебя:
#define ANICURSOR 21
myCur ANICURSOR "Cur.ani"


Так что, наверное, ты чего-то ты недоговариваешь...

Исходник прикреплен (21 кб) тут:


Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  AniCursor.zip


--------------------
С уважением, г-н Посол.
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0561 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.