본문 바로가기
반응형

SB 리치 패밀리5789

[개발/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.
[광고/마케팅] 돈 떼인 댓글 알바의 눈물…"댓글 20개 달면 월 50 준다더니" [광고/마케팅] 돈 떼인 댓글 알바의 눈물…"댓글 20개 달면 월 50 준다더니" 광고/홍보 뿐만이 아니라 그동안 정치적으로도 선거철에 소문이 무성하던 한xx당의 알바 댓글 관련해서 논란이 많았었지요. 지금에 와서 파워블로거를 통해서 이렇게 댓글 알바가 알려지게 된 건 어찌 생각해야할 지. 내년이면 정치권(특히나 여당)에서도 댓글 알바가 포털 사이트에 도배가 될텐데 말이죠. 공공연한 비밀이던 댓글 알바에도 피해 상황이 알려지게 되었습니다. 배달, 편의점, 식당 등에서 학생 알바생들이 당하던 급여로 협박하는 사례들처럼 인터넷 댓글 알바도 비슷한 사례들이 알려지겠네요. 노동의 댓가를 제대로 받기를 바라면서. 그리고 댓글로 인해서 홍보, 광고까지는 이해할 수 있지만 여론 조작은 안되었으면 좋겠습니다. 출처 :.. 2011. 8. 1.
반응형

티스토리툴바