C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[27016] Re:빌더 예제 만드러 올립니다....
최준호.스페로 [sparrow] 1538 읽음    2003-08-31 11:53
델파이 소스보구 후다닥 바꿔봣음니다.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ncUnit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

//2003.8.31 ncnt2.dll 사용하기 by sparrow

TForm1 *Form1;

  typedef char * __stdcall  (* pfun)(TPoint *P);

  pfun  GetWordFromPoint;
  HANDLE H;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  H = LoadLibrary("ncnt2.dll");
  if(H == NULL) return;

  GetWordFromPoint  = (pfun)GetProcAddress(H,"GetWordFromPoint");

  if(GetWordFromPoint == NULL)  exit(0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  TPoint  P;
  GetCursorPos(&P);
  Form1->Caption=StrPas(GetWordFromPoint(&P));

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  FreeLibrary(H);
}
//---------------------------------------------------------------------------


그럼 ^^


물어보자 님이 쓰신 글 :
: 최준호.스페로 님이 쓰신 글 :
: : 안녕하세요 스페로 입니다.
: :
: : http://sparrow.borlandforum.com/board/boardview.asp?table_name=tip&board_idx=121
: :
: : 요넘으로 비스므리 해보실수 잇을 겁니다.
:
: 델파이 소스인데 빌더에서는 어떻게 써야하는지요?
: 빌더에서 사용할 수 있는 방법을 일러주시면 감사하겠습니다.

+ -

관련 글 리스트
27004 한컴사전처럼 마우스커서 밑의 내용은 어떻게 가져오나요? 물어보자 1052 2003/08/30
27006     Re:한컴사전처럼 마우스커서 밑의 내용은 어떻게 가져오나요? 최준호.스페로 1782 2003/08/30
27010         빌더에서는 어떻게 사용해야하는지요? 물어보자 848 2003/08/31
27016             Re:빌더 예제 만드러 올립니다.... 최준호.스페로 1538 2003/08/31
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.