От: | xteam777 | ||
Дата: | 08.02.19 13:06 | ||
Оценка: |
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;