Web Browser Control에서 Enter키 먹게 하기

unit Unit1;interfaceusesActiveX; // 추가typeTForm1 = class(TForm) Button1: TButton; ApplicationEvents1: TApplicationEvents; // <- 추가 WebBrowser1: TWebBrowser; procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); procedure FormShow(Send...

윈도우 찾아서 Top Most로 올려주기

방법1)h := FindWindow( THandle(nil), '<폼 이름>');if (h<>0) thenbeign SetForegroundWindow(h); SetActiveWindow( h);end;방법2)h := FindWindow( THandle(nil), '<폼 이름>');if (h<>0) thenbeign SetForegroundWindow(h); SetActiveWindow( h); SetWindowPos( h, HWND_TOPMOST, 0,...

ActiveX의 등록 – Safe Code 넣어주기

들어가며...얼마전 까지만 해도 ActiveX의 제작이나 사용은 나에겐 먼나라 같은 일이었다.그런데 그것이 현실로 다가올 줄이야. 흑흑...ActiveX의 제작까지는 델파이라는 훌륭한 매개체를 이용하여 손쉽게 작성할 수 있었다. 그런데 문제는 바로 이 제작된 ActiveX의 등록에 있었다. 이 ActiveX의 등록 방법에 대해 간단히 알아보자.AcitveX의 제작...ActiveX의 제작은 이미 여러번 강좌나 기타 책등에서 많이 다룬 문제이므로 이곳에서는...

웹브라우져에 붙이기 위한 ActiveX 프로그래밍 방법

- ActiveX의 등록들어가며...얼마전 까지만 해도 ActiveX의 제작이나 사용은 나에겐 먼나라 같은 일이었다.그런데 그것이 현실로 다가올 줄이야. 흑흑...ActiveX의 제작까지는 델파이라는 훌륭한 매개체를 이용하여 손쉽게 작성할 수 있었다. 그런데 문제는 바로 이 제작된 ActiveX의 등록에 있었다. 이 ActiveX의 등록 방법에 대해 간단히 알아보자.AcitveX의 제작...ActiveX의 제작은 이미 여러번 강좌나 기타 책등에서 많이 다...

투명 윈도우 구현 방법

투명 윈도우 만드는 방법procedure TForm1.Button1Click(Sender: TObject);beginSetWindowLong(handle, GWL_EXSTYLE, GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_LAYERED);SetLayeredWindowAttributes(handle, 0, Round((255 * 70 ) / 100), LWA_ALPHA);end;이를 구현하기 위해서는 첨부되어져 있는 [w...

PC 셧다운 (shutdown)

셧다운 해주는 기능은 다음과 같이 구현 할 수 있다.procedure ExitWin2000(ewx: integer);varhToken: THANDLE;hProc: THANDLE;mLUID: TLargeInteger;mPriv, mNewPriv: TOKEN_PRIVILEGES;mBufferLength: DWord;beginif not (ewx in [1, 2]) then exit;hProc := GetCurrentProcess();OpenProcessTok...

      1      2      3            11      12      13      14      15      16      17      18      19