Получить хендл курсора
От: xteam777  
Дата: 08.02.19 13:06
Оценка:
Нужно получить хендл курсора

Этот код прекрасно работает в Win10:
procedure TForm5.Button1Click(Sender: TObject);
var
  ci: TCursorInfo;
  err: integer;
  r: LongBool;
begin
  ZeroMemory(@ci, SizeOf(TCursorInfo));
  ci.cbSize := SizeOf(TCursorInfo);
  ci.hCursor := 0;
  r := GetCursorInfo(ci);
  err := GetLastError;
  Memo1.Lines.Add('Err: ' + IntToStr(err));
  Memo1.Lines.Add('hCur: ' + IntToStr(ci.hCursor));
end;


Но, в WinServer2012R2 err = 170 (Требуемый ресурс занят) и hCursor = 0

В чем причина непойму
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.