삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

델파이 2007에는 기본적으로 오피스2000에 대한 지원이 이루어진다. 하지만, 나는 오피스 2010을 쓰는걸! 흄흄;; 오피스2000 용을 사용해도 무방하나.. 2010에 없는 필드나 기능이 없는건 사실이다. 그래서 오피스 2010을 뽑아내서 사용하기로 했다. 방법은 여러 번 설명한 Import Component 이다. 자세한 설명은 아래의 그림으로 대신한다.

1. Create 2. Show - Visible 3. ReSize 4. Activate - Visible 5. Paint - Visible 6. Close 7. CloseQuery 8. Deactivate 9. Hide 10. Destory

웹 에디터를 만들어 볼 작정으로 DHTML 을 임포팅한 후에 글꼴이라던가, 폰트사이즈라던가 수정을 하려면 콤보박스가 필요했다. 그러면 필요한게 콤보박스도 올라가야 하고, DHTML도 올라가야 하는 무언가가 있어야 한다. 나는 TFrame 를 사용하여 그 위에 컨트롤을 배치하도록 했다. 환경은 Window7, Delphi 2007 이다. 먼저 Component - New VCL Component 를 눌러서 TFrame를 찾아보자. 그렇다. 아무리 찾아도 없다 -_-;; 왜 없는지는 잘 모르겠으며 찾아보지도 않았음.. (욕하지마세요 ㅠㅠ) (앗, 한 번 꽁수를 쓰고 나니 목록에 TFrame 가 보이긴 한데 정장 dfm 이 생성되지 않았음) 이제 꽁수를 쓸 차례이다. 우선 File - New - Package..

델파이에서 ActiveX Form 을 만들어보자. Windows 7, Delphi2007 기준으로 설명하도록 한다. 이 때 Delphi2007은 반드시 관리자 권한으로 실행하도록 하자. 1. File - New - Other 선택 ActiveX Library 를 선택하고 OK 버튼을 누른다. 그렇게 하면 아래와 같은 화면이 나온다. 2. File - New - Other 선택 Active Form 을 누르고 OK 버튼을 누른다. 그렇게 하면 위와 같은 화면이 뜨는데, 입맛에 맛게 이름을 바꿔주고 OK 버튼을 누른다. 그러면 자동으로 TBL파일이 생성된다. 3. Project1.tlb파일에서 Method 또는 Property 를 추가하고, 입맛에 맛게 쓰면 된다. p.s 이 후의 방법들이 더 궁금하시면 댓..

출처 : http://www.delmadang.com/community/bbs_view.asp?bbsNo=3&bbsCat=0&st=NN&indx=417175&keyword2=&page=1

VCLSkin - http://www.link-rank.com/ SUIPack - http://www.sunisoft.com/ BusinessSkinForm/DynamicSkinForm - http://www.almdev.com/ ThemeEngine - http://www.ksdev.com/ ThemeControls - http://www.syntetix.com/ AlphaControls - http://www.alphaskins.com/ TMS Skin Factory - http://www.tmssoftware.com/

uses NB30.pas function GetMACAdress: string; var NCB: PNCB; Adapter: PAdapterStatus; URetCode: PChar; RetCode: char; I: integer; Lenum: PlanaEnum; _SystemID: string; TMPSTR: string; begin Result := ''; _SystemID := ''; Getmem(NCB, SizeOf(TNCB)); Fillchar(NCB^, SizeOf(TNCB), 0); Getmem(Lenum, SizeOf(TLanaEnum)); Fillchar(Lenum^, SizeOf(TLanaEnum), 0); Getmem(Adapter, SizeOf(TAdapterStatus)); Fill..

procedure Tfrm_Main.SetRegistry; var Reg : TRegistry; begin Reg := TRegistry.Create; try try Reg.RootKey := HKEY_CURRENT_USER; Reg.OpenKey( 'SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\www.naver.com', True ); Reg.WriteInteger('*', 2); except // end; finally Reg.Free; end; end;

type PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTURCUT; TKBDLLHOOKSTURCUT = record vkCode, scanCode, flag, time, dwExtraInfo: DWORD; end; private hhookCurrent: HHOOK; ------------------------------------------------------------------------------------------------------------------- function KeyBoardProc( icode: integer; wParam: integer; lParam: integer): integer; stdcall; var p: PKBDLLHOOKSTRUCT; fEatKeystr..

Constants VK_LBUTTON (01) Left mouse button VK_RBUTTON (02) Right mouse button VK_CANCEL (03) Control-break processing VK_MBUTTON (04) Middle mouse button (three-button mouse) VK_XBUTTON1 (05) Windows 2000/XP: X1 mouse button VK_XBUTTON2 (06) Windows 2000/XP: X2 mouse button - (07) Undefined VK_BACK (08) BACKSPACE key VK_TAB (09) TAB key - (0A-0B) Reserved VK_CLEAR (0C) CLEAR key VK_RETURN (0D) ..

{$REGION ' 컨트롤 크기 변경 '} procedure Tfrm_Main.MouseMoveEvent(Sender: TObject; Shift: TShiftState; X, Y: Integer); var WinControl : TWinControl absolute Sender; begin if ((X WinControl.Width - SC_DRAG_SIZE) and (Y > WinControl.Height - SC_DRAG_SIZE)) then WinControl.Cursor := crSizeNWSE else if ((X WinControl.Height-SC_DRAG_SI..

ShellExecute(Handle, 'Open', pchar(MyDownFolder), nil, '', SW_SHOWNORMAL); 3번째 인자값에 열고자 하는 폴더의 경로를 적어주면 됨.

자바스크립트의 모든 것 ------------------------------------------------------------------------------------- ■ HTML에 JavaScript 삽입 ■ HTML에 JavaScript 코드 파일 삽입 ■ 변수의 대소문자 구분 : 변수에 포함된 데이터의 형을 지정하지 않고, JavaScript 인터프리터가 변수에 포함된 데이터 형을 추적하고 변환. ■ JavaScript 데이터 형 숫자형 : 정수와 부동 소수 BOOLEAN : true, false STRING : 작은 따옴표나 큰 따옴표에 들어가 있는 값으로, 특수문자 포맷 사용시에는 ''와 함께 사용. null : 아무런 값도 없는 것으로, 변수를 초기화 시키거나 어떤 값이나 이벤트를 지..

델파이에서 XMLDocument 컴포넌트로 XML 읽고 쓰기 http://blog.naver.com/ckcho/90053728417 델파이에서 XMLDocument 컴포넌트로 XML파일을 읽고 쓰는 방법은 말로 설명하기는 좀 어렵고 그냥 소스를 보는 것이 알기 쉬울 것 같다. 먼저 uses에 XMLDoc, XMLIntf을 추가한다. ■ XML 파일 쓰기 // XML 파일 만들고 쓰기 procedure TForm1.Button1Click(Sender: TObject); Var xdSoft : TXMLDocument; xnRoot : IXMLNode; xnChild : IXMLNode; xnGrandchild : IXMLNode; begin // XML Document 만들기 xdSoft := TXMLDoc..

procedure GetInstalledProg; var MyList: TStringList; MyRegistry: TRegistry; i: Integer; Str: string; pView : TListItem; begin MyRegistry:=TRegistry.Create; MyList:=TStringList.Create; with MyRegistry do begin RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall', False)=True then GetKeyNames(MyList); CloseKey; for i:=0 to MyList.Count-1 do begin RootKey:=H..