var
Form1: TForm1;

implementation

{$R *.dfm}
{$R MyAniCursors.res}
const AniWait = 1;

function SaveResourceAsTempFile(const ResName: string; ResType: pchar): string;
var
TempFileName: array [0..MAX_PATH-1] of char;
TempDir: array [0..MAX_PATH-1] of char;
begin
GetTempPath(MAX_PATH, TempDir);
if GetTempFileName(TempDir, '~', 0, TempFileName) = 0 then
raise Exception.Create(SysErrorMessage(GetLastError));
Result := TempFileName;
with TResourceStream.Create(hInstance, ResName, ResType) do
try SaveToFile(result);
finally
Free;
end;
end;

function GetResourceAsAniCursor(const ResName: string): HCursor;
var CursorFile: string;
begin
CursorFile := SaveResourceAsTempFile(ResName, 'ANICURSOR');
Result := LoadImage(0, PChar(CursorFile), IMAGE_CURSOR, 0, 0,
LR_DEFAULTSIZE or LR_LOADFROMFILE);
DeleteFile(CursorFile);
if Result = 0 then raise Exception.Create(SysErrorMessage(GetLastError));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Save_Cursor,sos : TCursor;
begin
Save_Cursor := Screen.Cursor;
sos:=GetCursor;
Screen.Cursor := AniWait;
SetSystemCursor(Screen.Cursors[AniWait], OCR_NORMAL);
try
showmessage('BOOYA');
finally
Screen.Cursor := Save_Cursor;//Always restore to normal( i can't restore it)????
SetSystemCursor(sos, OCR_NORMAL);//( i can't restore it)????

end;
end;

//i can't restore it!!!!!

| Сообщение посчитали полезным:

www.delphisources.ru/pages/faq/base/archives/load_from_res.zip

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Thank you BUT!!!!
i want to SetSystemCursor on al desktop not on application only.
test my example above .

| Сообщение посчитали полезным: