z-order 취득 GetTopWindow는 이름과 달리 mdi같은 자 윈도를 가지는 경우 작동함. GetWindow指定されたウィンドウと指定された関係(Zオーダー またはオーナー)にあるウィンドウのハンドルを取得します。 function GetWindow(hWnd: HWND; uCmd: UINT): HWND; 関数が成功すると、ウィンドウ.. delphi 2014.01.07
test <html> <head> <script type="text/javascript"> function open_win(){ window.open("http://blog.naver.com/seilius","바보상자 블로그", "width=400,height=300,scrollbars=yes,resizeable=no,left=450,top=150"); } </script> </head> <body> <input type="button" value="Open Window" onclick="open_win()"> </body> </html> 카테고리 없음 2014.01.01
web 复于: 2012-08-09 16:42:38确实不行了 我把所有代码贴出来 procedure Tfmain.FormCreate(Sender: TObject); var // webbrowser: TWebBrowser; tabsheet: TTabSheet; begin tabsheet := TTabSheet.Create(Self); with tabsheet do begin PageControl := pgc1; Caption := dealTitle('百度一下,你就知道'); end; webbrowser := TWebBrowser.Cr.. delphi 2013.12.30
EUC-KR Decode 하는 법 EUC-KR Decode 하는 법! 델파이 2009/02/10 10:16 http://blog.naver.com/cysnim12/130042318704 전용뷰어 보기 HTTPDecodeUnit: DSHtmlUtilfunction HTTPDecode(const s: string): string;UnitDSHtmlUtil DescriptionHTTPDecode is the same as URLDecode. We have both routines because WebBroker calls this functionality HTTP encoding while Indy calls it URL encoding.[출처] EUC-KR .. delphi 2013.12.28
중복 실행 방지 (Mutex) 중복 실행 방지 (Mutex) 델파이 2009/06/24 14:10 http://blog.naver.com/cysnim12/130051583368 전용뷰어 보기 프로그램이 이미 실행된 상태에서 동일한 프로그램이 중복 실행되는 것을 방지하려면 프로젝트 소스 파일에서 다음과 같이 코딩합니다. program Project; uses Forms,windows, Unit1 in 'Unit1.pas' {Form1}; var Mutex .. delphi 2013.12.28
실행프로그램(task,태스크) 죽이기 실행프로그램(task,태스크) 죽이기 델파이 2009/07/10 10:54 http://blog.naver.com/cysnim12/130052625938 전용뷰어 보기 { For Windows 9x/ME/2000/XP }uses Tlhelp32; function KillTask(ExeFileName: string): Integer; const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin Result := 0; FSnapshotHandl.. delphi 2013.12.28
IE 새창 조절하기 IE 새창 조절하기 델파이 2010/12/02 11:23 http://blog.naver.com/cysnim12/130098244824 전용뷰어 보기 새창 사이즈 조절여부, 크기, 위치 조정을 할수 있습니다. 추가사항이나 참고사항은 댓글 달아주세요. procedure TForm1.Button1Click(Sender: TObject); var IE : Variant; begin IE := CreateOleObject('InternetExplorer.Application'); IE.. delphi 2013.12.28
웹브라우져에서 모든프레임 완료시점 웹브라우져에서 모든프레임 완료시점. 델파이 2010/11/04 13:38 http://blog.naver.com/cysnim12/130096713029 전용뷰어 보기 var CurDispatch1 : IDispatch; procedure DoNavigateComplete2(const pDisp: IDispatch; var URL: OleVariant); begin if CurDispatch1 = nil then begin CurDispatch1 := pDisp; end; end; procedure DoDocumentComplete(const pDisp: IDispatch; var U.. delphi 2013.12.28
날짜 구하는 방법 날짜 구하는 방법 델파이 2010/03/10 16:33 http://blog.naver.com/cysnim12/130082122642 전용뷰어 보기 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DateUtils; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var For.. delphi 2013.12.28
HTML 태그 접근법 HTML 태그 접근법 델파이 2010/06/01 11:30 http://blog.naver.com/cysnim12/130087226280 전용뷰어 보기 1. 데어터 읽고, 쓰기 getInputTextElement := document.all.item("ID입력", Unassigned) as HTMLInputTextElement; if getInputTextElement <> nil then begin getInputTextElement.value; getInputTextElement.value:= 'btop'; end else begin ShowMessage('없다!');.. delphi 2013.12.28