Witam
Mam problem, chcę zrobić funkcję, która będzie sprawdzać czy obecny kursor jest identyczny jak kursor niegdyś zapisany. Dużo szukałem również dużo znalazłem, ale i tak nie działa tak jak chciałem ponieważ czyta bardzo długo (1024x768 jeśli sprawdzam każdy piksel to zajmuje kilka sekund).
To jest funkcja zwracająca obrazek kursora do TBitmap
//---------------------------------------------------------------------------
function TForm1.f_kursor():TBitmap;
var
MyCursor: TIcon;
begin
MyCursor := TIcon.Create;
MyCursor.Handle := GetCursor();
result := TBitmap.Create();
with result do
begin
Height := 32;
Width := 32;
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect(0,0, Width, Height));
Canvas.Draw(0, 0, MyCursor);
end;
MyCursor.Free();
end;
//---------------------------------------------------------------------------
Znalazłem również coś z ścieżką
HKEY_CURRENT_USER\Control Panel\Cursors\
Ale tam znajduje(teoretycznie bo u mnie nic nie znajduje, ale ludzie na forach piszą, że działa) tylko ścieżki.
No i na końcu chciałbym przedstawić funkcje Screen.Cursor, która zwraca non-stop wartość 0[IntToStr(Screen.Cursor)] choć na tej stronie http://delphi.about.com/library/blcursors.htm jest przedstawiony schemat dla jakiego kursora powinna być jaka wartość. Największą wiarę mam w tą funkcję.
Proszę mi pomóc w rozwiązaniu mojego problemu.
Z góry dzięki.