시스템 커스(Help) 바꾸기

시스템 커스 바꾸기

728x90

 

 

 

Windows.pas에 OCR 에 관련된 상수부분이 선언된곳이 있다

 

그곳에 OCR_HELP = 32651 이라고 선언해주시고

Windows.pas를 재컴파일 해주시면 시스템 커서를 바꾸실때 용의하다.

 

{

Cursor 바꾸기

OCR_NORMAL 일반적인 화살표

OCR_IBEAM 입력창 등에 사용되는 I빔

OCR_WAIT 모래시계 커서

OCR_CROSS 십자모양 커서

OCR_UP 위쪽 화살표

OCR_SIZE 크기조절 커서. 윈 NT에만 있음.

OCR_SIZEALL과 동일.

OCR_ICON 아이콘 커서. 윈 NT에만 있음.

OCR_SIZENWSE NW to SE 크기조절 커서

OCR_SIZENESW NE to SW 크기조절 커서

OCR_SIZEWE 수평 크기 조절 커서

OCR_SIZENS 수직 크기 조절 커서

OCR_SIZEALL 전체 크기 조절 및 이동용 커서

OCR_SIZENO 동작 불가를 나타내는 커서

OCR_APPSTARTING 작은 화살표와 모래시계 커서

OCR_HELP 작은 화살표와 물음표 커서

}

 

procedure CursorChage(const ID :DWORD; path :Stirng);

Var

  Curs :HCURSOR;

begin

case ID of

  OCR_HELP : Curs := LoadCursorFromFile(PChar(Path + '\Image\도움말선택.ani'));

  ...{ 다른커서들도 여기에 코딩하시면 되겠죠 ^^}

end;

SetSystemCursor(Curs, ID);

end;