TWebbrowser IE 최신버전으로 실행하기

델파이에서 TWebbrowser 콤포넌트를 이용하여 웹 페이지를 보여주려고 했습니다. 그런데, TWebbrowser 콤포넌트를 통해 특정 페이지를 호출하면 Javascript 오류가 연달아 발생하고 해당 웹 페이지가 정상동작 하지 않았습니다. 이 문제는 TWebbrowser 를 통해서 IE7 혹은 IE8 (과거 브라우져) 등 이 실행 되어 브라우져 호환성 때문에 발생한 오류라는 사실을 확인 했습니다. 웹 서핑 결과 아래와 같이 레지스트리에 특정 값을 추가하면 "실행화일 별로 연계되는 브라우져 버전 (IE7, IE8, IE9, IE11 등) 을 선택적으로 지정" 할 수 있습니다. 32/64bit 전용 프로그램 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explore..
프로그래밍/Delphi 2020. 6. 29. 17:04
델파이와 아이폰 어플들...

올해 델파이를 개발한 엠바카데로(코드기어) 에서 '델파이 for 아이폰' (가칭) 과 같은 이름으로 아이폰 어플을 개발 할 수 있는 제품을 출시 하려 한답니다. 올해 출시 여부는 확실하지는 않은 것 같지만 사실이 된다면 매우 재미 날듯 합니다... 기대 만땅 *.*
프로그래밍/Delphi 2010. 1. 7. 14:58
[델파이소스] 윈도우 핸들로 실행화일명 찾기

uses PsAPI, TlHelp32; // portions by Project Jedi www.delphi-jedi.org/ const RsSystemIdleProcess = 'System Idle Process'; RsSystemProcess = 'System Process'; function IsWinXP: Boolean; begin Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion = 5) and (Win32MinorVersion = 1); end; function IsWin2k: Boolean; begin Result := (Win32MajorVersion >= 5) and (Win32Platform = VER_PL..
프로그래밍/Delphi 2009. 8. 5. 19:19
[델파이소스] IDFTP 이용한 디렉토리 통째 업로드

procedure UploadPerFTP; procedure GetDir(dir: string); var SearchRec: TSearchRec; details, nodetails: TStringList; k: Integer; begin //iterate through directory given //schleife über alle dateien im ordner if FindFirst(dir + '*.*', faAnyFile, SearchRec) = 0 then begin repeat //get rid of the both "dummy-directories" '.' and '..' //die ordner '.' und '..' brauchen man nicht if (SearchRec.Name '.'..
프로그래밍/Delphi 2009. 8. 5. 15:18
[델파이소스] 문자열이 올바른 IP 인지 확인 함수

function IsWrongIP(ip: string): Boolean; var z, i: byte; st: array[1..3] of byte; const ziff = ['0'..'9']; begin st[1] := 0; st[2] := 0; st[3] := 0; z := 0; Result := False; for i := 1 to Length(ip) do if ip[i] in ziff then else begin if ip[i] = '.' then begin Inc(z); if z < 4 then st[z] := i else begin IsWrongIP := True; Exit; end; end else begin IsWrongIP := True; Exit; end; end; if (z 3) or (..
프로그래밍/Delphi 2009. 8. 5. 13:55
[델파이소스] 작업스케쥴러 추가

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Pat_info = ^at_info; at_info = record JobTime: DWORD; DaysOfMonth: DWORD; DaysOfWeek: UCHAR; Flags: UCHAR; Command: LPWSTR; end; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end..
프로그래밍/Delphi 2009. 8. 5. 13:53
[델파이소스] 폼이 화면 밖으로 나가지 못하게

폼들이 화면 밖으로 나가지 못하게 하려할때! 포인트 : WM_WINDOWPOSCHANGING 후킹 interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1...
프로그래밍/Delphi 2009. 8. 5. 13:51
[델파이소스] PC재부팅, PC끄기, 로그오프

PC끄기, PC재부팅, 로그오프 펑션 function MyExitWindows(RebootParam: Longword): Boolean; var TTokenHd: THandle; TTokenPvg: TTokenPrivileges; cbtpPrevious: DWORD; rTTokenPvg: TTokenPrivileges; pcbtpPreviousRequired: DWORD; tpResult: Boolean; const SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin tpResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_..
프로그래밍/Delphi 2009. 8. 5. 13:43
1
공지사항
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
링크