Сохранить текущий курсор в файл .cur

[Тоба]

Добрый день!
Задача в следующем:
Допустим:Системный курсор стандартный (стрелка),в приложении курсор другой (пользователь поставил свой собственный(допустим курсор в виде гитары)).Так вот надо сохранить этот курсор в виде гитары во внешний файл .cur.Возможно ли такое.

procedure TForm1.Button1Click(Sender: TObject);
var
  CI : TCursorInfo;
begin
  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  Image1.Picture.Icon.Handle := CI.hCursor;
end;

Этот код выводит текущий курсор в Image1
А как его сохранить в файл в своём родном расширении .cur


Вот нашёл здесь,вроде то что надо,но надо переписать под Delphi (пробывал-не получается).Прошу помощи!
http://ru.w3support.net/index.php?db=so&id=918990

[Пепел Феникса]

Image1.Picture.Icon.SaveToFile
как не странно.

[Тоба]

Спасибо!,это понятно, а если без предварительного вывода в Image1

[Spawn™Production®]

Без Image через DrawIcon

[Тоба]

Функция DrawIcon нарисует на контексте,а необходимо не нарисовать,а просто сохранить текущий курсор в файл .cur разумеется с x,yHotSpot без предварительного рисования где либо или отображении в Image

[Spawn™Production®]

без предварительного рисования где либо

Угу, тогда Вы сохраните максимум чёрный квадратик

Создайте контекст с нужными размерами, нарисуйте на нём курсор и сохраните. Отображать-то Вы его не будете, да даже никакому элементу управления не передадите, а вот функция сохранения получит необходимое для работы.

[Тоба]

Spawn™Production®,Спасибо,попробую
А если через TImageList интересно,надо подумать
Или может есть ещё какой-нибудь способ?

[Spawn™Production®]

Работа с любым элементом управления естественно упростит работу, другой вопрос, какая задача стоит перед Вами.

[Тоба]

Это необходимо для написания плагина к другой программе,т.е всё построить надо какбы на чистом API ,без применения внутренних делфийских контролов.т.е все операции будут происходить в чужом окне.

[Spawn™Production®]

Это необходимо для написания плагина к другой программе,т.е всё построить надо какбы на чистом API

Ну, ответ напрашивается сам собой, лучше не привязываться ни к TImageList, ни к чему бы то ни было ещё.