본문 바로가기
반응형

SB 리치 패밀리5727

[개발/MFC] 동적으로 COM Server 등록하기 (DLL, OCX) [개발/MFC] 동적으로 COM Server 등록하기 (DLL, OCX) DLL 등을 등록하려면 regsvr32 DLL이름 으로 등록한다. (등록해제는 regsvr32 /u DLL이름) 동적으로 등록하는 방법이 있었다. RegisterComServer(DLL이름); ex) 프로젝트 파일(.dpr)에서 한다. programRegistComServer; uses Forms, ComObj, Main in'Main.pas'{Form1} {$R *.res} constDLL_FILE='xx.dll'; begin Application.Initialize; ifFileExists(DLL_FILE) then begin RegisterComServer(DLL_FILE); // DLL 등록 end else begin App.. 2011. 8. 1.
[개발/MFC] 바탕화면 바꾸기 procedure 바탕화면_바꾸기(이미지파일: String; 바둑판형식: Boolean); const 바탕화면_복구 = 29699; var Reg: TRegIniFile; 바탕화면_핸들: HWND; begin // 레지스트리에 바탕화면에 대한 항목 세팅 Reg := TRegIniFile.Create('Control Panel'); Reg.WriteString('desktop', 'Wallpaper', 이미지파일); if바둑판형식 thenReg.WriteString('desktop', 'TileWallpaper', '1') else Reg.WriteString('desktop', 'TileWallpaper', '0'); // 바탕화면 변경 메세지 보냄 바탕화면_핸들:=FindWindow('ExploreWC.. 2011. 8. 1.
[개발/delphi] 절대 죽지 않는 프로그램 만들기 dpr 프로젝트 파일을 아래와 같은 형태로 만들면 된다. programProject1; uses Forms, Windows, Messages, Unit1 in 'Unit1.pas'{Form1}; {$R *.res} var Msg: tagMSG; 종료금지: Boolean; const WM_MYQUIT = WM_USER+2533; begin 종료금지:=True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; while종료금지 do begin whilePeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin ifMSG.message = WM_MYQUIT then begin 종료금지:=Fal.. 2011. 8. 1.
[개발/MFC] regsvr32.exe 를 사용하지 않고 ActiveX DLL을 레지스트리에 등록하기 [개발/MFC] regsvr32.exe 를 사용하지 않고 ActiveX DLL을 레지스트리에 등록하기 activeX DLL 을 regsvr32를 사용하지 않고 등록하는 방법이 델파이로 된게 있어서 가져왔다. 직접 만들어서 해볼려고 하니 시간이 부족하다... Unit Unit1; Interface Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Type TForm1 = Class(TForm) btRegistryDll: TButton; btUnRegistryDll: TButton; Procedure btRegistryDllClick(Sender: TObject); Procedure btUnRegis.. 2011. 8. 1.
[개발/delphi] Vista에서 프로그램 권한상승하기 여기 없어서 문서와 소스 올립니다. Windows Vista에서 레지스트리나 RegisterWindowMessage...뭐 좀 건드는거 하면 조용히 실행 안해서 프로그램 오류인가 비스타와 궁합 등등 속썩이는 경우. 관리자 권한으로 실행하여 User Account Control (UAC)을 띄워하라고 하여 했더니 되고요. 설치시하거나 델2007이상하면 되다는데 그럴 여건은 안되고... 첨부 문서대로 res파일을 만든후, 빌드하면 실행파일의 권한이 상승되어 비스타에서 잘 됩니다. 여기저기 찾아봐도 어려운 말이 많아서요, 일단 간단하게 되긴되는데 맞는 방법인지는.... (첨부파일의 WindowsVista.rc, WindowsVista.manifest 그대로 사용하시려면 1,2 생략 해도 됩니다) 1. 일단 메.. 2011. 8. 1.
[개발/Delphi] IE 띄우기, IE 실행하기 단 아래와 같이 하면 IE가 뜬다. usesComObj; procedureTForm1.Button1Click(Sender: TObject); var IE: OleVariant; begin try IE:=CreateOleObject('Internetexplorer.Application'); // 위치, 크기 IE.Left:=0; IE.Top :=0; IE.Width :=500; IE.Height:=400; // IE 윈도우 상태 IE.Toolbar :=False; IE.Statusbar:=False; IE.Menubar :=False; // 띄우기 IE.Visible:=True; SetForegroundWindow(IE.HWND); IE.Navigate('http://www.naver.com'); fina.. 2011. 8. 1.
[개발/MFC] 현재 실행중인 익스플로러 인터페이스 받기 현재 실행중인 익스플로러 인터페이스 받기 참고하세요 HOWTO: Connecting to a Running Instance of Internet Explorer #import // Internet Explorer 4.0x #import // Internet Explorer 5 #import SHDocVw::IShellWindowsPtr m_spSHWinds; if ( S_OK == m_spSHWinds.CreateInstance(__uuidof(SHDocVw::ShellWindows))) { // 현재 실행중인 익스플로러의 숫자 long nCount = m_spSHWinds->GetCount(); IDispatchPtr spDisp; for (long i = 0; i Item(va); SHDocVw::I.. 2011. 8. 1.
[개발/MFC] Variant To CString , CString to Variant 소백촌닭 이제 문자열 변환 헤매이지 말고 여기에서 다 찾자. 이 문자열 변수 변환은 아주 유용하게 사용될 것이당. [개발/MFC] BSTR to CString 문자열 변환 http://sbrich.tistory.com/1047 [개발/MFC} CString to char http://sbrich.tistory.com/842 [VC++] 문자열변환 CString LPSTR WCHAR* LPCWSTR http://sbrich.tistory.com/383 Variant To CString , CString to Variant CString str="abc"; COleVariant strVar(str); VARIANT var=strVar.Detach(); CString VariantToString(VARIANT.. 2011. 8. 1.
[성공투자] 오바마 “부채 협상 타결 합의” 美 채무불이행 피했다 미국의 부채 협상에 대한 민주-공화 양당의 합의로 글로벌 불안감이 줄어들었다. 아직 유럽 문제가 남아 있기는 하지만 현재로는 미국의 부채협상이 글로벌 경제에 미칠 파급효과에 대하여 더 크게 걱정을 하고 있던 터였기 때문에 큰 문제는 지난 간 것으로 판단이 된다. 버락 오바마 대통령이 미국 상하원에서 민주-공화 양당이 부채 상한 확대와 재정적자 감축안에 합의했다고 1일 밝혔다. 오바마는 이날 오전 백악관에서 특별 기자회견을 열고 "양당 지도부가 재정적자를 감축하고 디폴트(채무불이행) 상황을 피하는 데 최종 합의했다"고 밝혔다. 오바마 대통령은 "향후 10년간 약 1조 달러의 재정지출을 감축하기로 했다"며 "아이젠하워 행정부 이후 가장 낮은 지출수준을 보일 것"이라고 설명했다. 양당이 합의한 타결안은 기본 .. 2011. 8. 1.
반응형

티스토리툴바