반응형 Delphi, RadStudio82 [개발/delphi] 힌트의 위치와 색상 변경하기 [개발/delphi] 힌트의 위치와 색상 변경하기 procedure TForm1.DoOnShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); var XYPoint : TPoint; begin if HintInfo.HintControl = PlayBtn then begin getcursorpos(XYPoint); XYPoint.Y := XYPoint.Y + 15; with HintInfo do begin HintPos := XYPoint; // 이 버튼 힌트의 위치 바꾸기. HintColor := clAqua; // 이 버튼의 색상만 바꾸기 HintMaxWidth := 50; // 이 버튼 힌트 wordwrap 주기. e.. 2011. 12. 20. [개발/delphi] 윈도우즈 언어 알아보기 [개발/delphi] 윈도우즈 언어 알아보기 시스템에 설치된 IME의 버전을 알아내는 루틴이다. setlength(s, Max_PAth); VerLanguageName(GetSystemDefaultLangID, PChar(S), max_path); SetLength (S, StrLen (PChar(S))); caption := s; 2011. 12. 20. [개발/Delphi] TWebbrowser 의 찾는 문자열에 형광팬 효과 주기 [Delphi] TWebbrowser 의 찾는 문자열에 형광팬 효과 주기 델파이 2009/11/04 17:40 http://blog.naver.com/yagyu82/92553070 uses 절에는 MsHTML 을 추가합니다. 그리고 함수는 다음과 같습니다. var tr: IHTMLTxtRange; begin tr := ((WebBrowser.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange; while tr.findText('찾는 문자열', 1, 0) do begin tr.pasteHTML('' + tr.htmlText + ''); tr.scrollIntoView(True); end; end; 즉 tr 에 TWebbrowser 내.. 2011. 12. 20. [개발/delphi] 자기 자신을 지우는 프로그램 만들기(delphi) [개발/delphi] 자기 자신을 지우는 프로그램 만들기(delphi) from. 나이렉스 홈페이지 팁란( http://www.nilex.net/ ) 안치봉( ahn@nilex.co.kr ) 자기 자신을 지우는 프로그램은 대부분 인스톨에 관계된것 중에서 Uninstall 프로그램 에 적용이 됩니다. 아래는 그 소스입니다. 간단히 설명을 드리자면 원래 실행중인 프 로그램을 당장(?) 삭제하는것은 힘듭니다. 그래서 아래꽁수는 시스템에서 지원해주는 기능을 사용합니다. 자세한건 소스를 직접 분석해 보시기 바랍니다 - 백문이 불여 일 행! ... ... procedure TForm1.RemoveFile(FileName: String); var ShortDest: array[0..400] of Char; WINIn.. 2011. 12. 12. [개발/delphi] how to register an OCX [delphi] How to register an OCX http://www.delphifaq.com/faq/delphi_windows_API/f515_0.htm program RegisterMyOCX; uses OLECtl, Windows, Dialogs; var OCXHand: THandle; RegFunc: TDllRegisterServer; //add to the uses clause begin OCXHand:= LoadLibrary('c:\windows\system\test.ocx'); RegFunc:= GetProcAddress(OCXHand, 'DllRegisterServer'); //case sensitive if RegFunc 0 then RegFunc else ShowMessage('E.. 2011. 12. 12. [개발/delphi] Starting and stopping Windows services [delphi] Starting and stopping Windows services http://www.delphifaq.com/faq/delphi_windows_API/f521_0.htm Note: Thanks to Henk Mulder who mailed me about a correction with the assignment to dwCurrentState. I think this code was written originally with Delphi 3 and probably Borland or Microsoft changed something from a signed integer to an unsigned word. { Thanks to Andrea Canu for pointing out .. 2011. 12. 12. 이전 1 ··· 8 9 10 11 12 13 14 다음 반응형