전체 글941 부산여행) 남포동 냉채족발 - 태종대 - 자갈마당 조개구이 부산여행 내내 니콘 P330으로만 사진 찍었다! 블로그에 올릴 사진들이 모두 그냥 디카 원본이다.. 후보정이 뭔가요? 여튼 그건 너무 귀찮다 ㄱ- 부산여행의 가장 큰 목적! 부산역에 내려서 토요코인에 짐 맡기자마자 일단 부산족발로 향했다 ㅋㅋ 부산족발의 냉채족발은 진짜 너~무 맛있다 대낮부터 소주마시기 싫다는 동생 덕분에 사이다에 먹긴 했지만.. 소주가 절로 생각나는 맛-_-b 냉채족발로 배를 채우고 남포동에서 8번 버스를 타고 바로 태종대로 향했다 버스타고 종점까지 40~50분 가면 된다 태종대 입구에서 유람선 타라는 아저씨들을 열심히 지나쳐서 5분정도 위로 쭉 올라가면 다누비 매표소가 나온다 1회 왕복가능한 티켓이 성인 1500원이다 다누비는.. 언제나 긴 줄이 문제다 ^^; 그래도 다행히 일부러 평.. 2013. 8. 14. [WP7] Horizontal ListBox 리스트박스 가로로 보여주기 2013. 8. 9. [Delphi] InnoSetup : 설치 전, 설치 후 함수 호출하기 [BeforeInstall] [Files]Source: "MYPROG.EXE"; DestDir: "{app}"; BeforeInstall: MyBeforeInstallSource: "A\MYFILE.TXT"; DestDir: "{app}"; BeforeInstall: MyBeforeInstall2('{app}\A\MYFILE.TXT') [AfterInstall] [Files]Source: "MYPROG.EXE"; DestDir: "{app}"; AfterInstall: MyAfterInstallSource: "A\MYFILE.TXT"; DestDir: "{app}"; AfterInstall: MyAfterInstall2('{app}\A\MYFILE.TXT') [Code]procedure MyBeforeI.. 2013. 8. 7. [Delphi] InnoSetup : event 함수들 [Setup event functions] function InitializeSetup(): Boolean;Called during Setup's initialization. Return False to abort Setup, True otherwise.procedure InitializeWizard();Use this event function to make changes to the wizard or wizard pages at startup. You can't use theInitializeSetup event function for this since at the time it is triggered, the wizard form does not yet exist.procedure Deinitia.. 2013. 8. 7. [Delphi] InnoSetup : 방화벽 추가 InnoSetup [Code] 부분에 이대로 추가하면 된다설치할때 추가하고 삭제할때 제거된다 검색해서 나오는 자료들은 죄다 예전 소스들이라 힘들었음 ㄱ- [Code] constNET_FW_SCOPE_ALL = 0;NET_FW_IP_VERSION_ANY = 2;NET_FW_ACTION_ALLOW = 1; procedure SetFirewallExceptionXP(AppName,FileName:string);var FirewallObject: Variant; FirewallManager: Variant; FirewallProfile: Variant;begin tryFirewallObject := CreateOleObject('HNetCfg.FwAuthorizedApplication');FirewallObje.. 2013. 8. 7. [Delphi] InnoSetup : 설치/제거 할 때 프로그램 종료하기 InnoSetup [Code] 부분에 이렇게 넣으면 설치하거나 제거할 때 강제로 프로세스를 종료한다! [Code]constWM_CLOSE = $0010; // 프로그램 설치 시 function InitializeSetup: Boolean;varWnd: HWND;beginwhile(true) dobeginWnd := FindWindowByClassName('메인폼클래스명');if Wnd 0 thenbeginSendMessage(Wnd, WM_CLOSE, 0, 0);endelsebeginbreak;end;end; Result := True;end; // 프로그램 제거 시 function InitializeUninstall: Boolean;varWnd: HWND;beginwhile(true) dobeginWn.. 2013. 8. 7. [Delphi] 윈도우 높은 권한에서 낮은 권한 메시지 받기 ChangeWindowMessageFilter 를 이용한다.이 소스 진짜 원 출처는 어딘지 모르겠지만 일단 적어놓기. type FCHANGEWINDOWMESSAGEFILTER = function(message: UINT; dwFlag: DWORD) : boolean; stdcall; procedure TForm.FormCreate(Sender: TObject);var h: HWND; MessageFilter: FCHANGEWINDOWMESSAGEFILTER;begin h := LoadLibrary('USER32.DLL'); if h 0 then begin try @MessageFilter := GetProcAddress(h, 'ChangeWindowMessageFilter'); if @MessageFil.. 2013. 8. 2. 지름) 고민끝에 결정한 니콘 P330 그리고 WU-1a 원래 사고싶었던 카메라는 소니 rx100 그리고 소니 nex-5r 였는데 세상에서 무거운걸 젤 싫어하는 나는 살 수가 없었다.. 하도 가볍다 해서 구경하러 갔더니.. (나한테는) 무거웠다; dslr에 비해 가벼운거고 똑딱이에 비해선 너무 무거웠다 난 그래서.. 가볍고 야경 잘나온다고 하는 니콘 P330을 선택했다 이 선택을 하기까지 엄~청난 시간이 걸렸다.. 결론은, 완전 만족한다!!!!!!!!!!!!!!!!!!!!!! 요거 매고 2박3일 부산여행 다녀왔는데 굿굿b담달에 떠날 유럽여행 목적으로 구매한건데 좋다!! 구매당시 최저가 316,710원 구매하고 따로 액정커버, sd카드, 추가배터리, wu-1a를 샀다. 이쁘당.. ^^ 그리고 니콘 홈페이지 이벤트 신청해서 받은 가죽케이스! 정확히 딱 일주일만에 .. 2013. 7. 30. [Delphi] 작업표시줄 시계부분 위치찾기 작업표시줄 위치에 상관없이시계부분에 팝업을 띄우기 위해서 var h: HWND; WorkRect: TRect; BarData: TAppBarData; begin h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil); GetWindowRect(h, &WorkRect); BarData.HWND := 0; BarData.cbSize := sizeof(BarData); SHAppBarMessage(ABM_GETTASKBARPOS, BarData); case BarData.uEdge of 0: // ABE_LEFT begin self.Left := WorkRect.Right; self.Top := WorkRect.Bottom - .. 2013. 7. 30. [Delphi] 작업표시줄 위치 찾기 uses shellapi; var pData: TAppBarData;begin pData.hWnd := 0; pData.cbSize := sizeof(pData); SHAppBarMessage(ABM_GETTASKBARPOS, pData); case pData.uEdge of 0: ShowMessage('ABE_LEFT'); 1: ShowMessage('ABE_TOP'); 2: ShowMessage('ABE_RIGHT'); 3: ShowMessage('ABE_BOTTOM'); end; end; 2013. 7. 22. 이전 1 ··· 87 88 89 90 91 92 93 ··· 95 다음
