본문 바로가기

분류 전체보기1166

[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.
취미) 미니 피포페인팅 완성! 색칠도 못하는 사람이라 남들이 하는거 구경만 하다가~ 고민고민 하다가 미니 피포페인팅으로 도전 ㅋㅋ 욕심같아선 크고 멋진 그림 하고팠지만..! 나름 만족! 혼자는 이틀은 걸렸을 것 같은데 구경하던 동생이 껴들어서 3~4시간만에 완성^^ 이름이 개구쟁이 고양이 였다 ㅋㅋ http://www.pipo.co.kr/shop/shopdetail.html?branduid=84965&xcode=011&mcode=001&scode=&type=X&search=&sort=view 어쨌든 뿌듯-_-b 2013. 7. 21.
[Delphi] IdFTP 한글 인코딩 오류 기억력 나쁜 내가 또 까먹고 indy 업데이트 할까봐 급히 메모.. IdFTP.pas 수정하면 됨. 1) TIdFTP = class(TIdExplicitTLSClient)에 프로퍼티 하나 만들고 FUTFMode: boolean; property UTFMode : boolean read FUTFMode write FUTFMode; 2) 소스 수정 procedure TIdFTP.List(ADest: TStrings; const ASpecifier: string = ''; ADetails: Boolean = True); {do not localize}var LDest: TMemoryStream; LTrans : TIdFTPTransferType;begin if ADetails and UseMLIS and FC.. 2013. 4. 5.
혼자떠난 속초여행) 감자옹심이 * 영금정 * 동명항 빨간등대 더하우스는 11시 퇴실이라 9시 넘어서까지 늦잠 자다가 짐 맡기고 나왔다! 숙소에서 제공하는 아침따위에게 내 잠을 포기 할 수는.. .. 아침 겸 점심으로 계획했던 중앙시장 내 옹심이!! 요로코롬 생겼다. 감자옹심이! 7천원! 생감자로 만든 감자 수제비랜다 ㅋㅋ 첨에 우와!!! 하고 먹었는데 계~속 다 먹다보니 조금 질리는 느낌?..이라고 쓰지만 사실 맛나긴 해서 다 처묵했다. 불친절하다고 말이 많던데 친절하지도 불친절하지도 않더라.. 그리고 그냥 걸었다. 옹심이 덕분에 배부르기도 했고 유명하다는 카페들은 가고팠는데 귀찮았고 쭉쭉 걸었다. 걷다가 길 잃으면 택시타면 되니까!! ㅋㅋ 그러다 찾은 카페. 그냥 간판에 핸드드립이 보였고 조용해 보였고 아담했고 왠지 들어가고 싶었다 ㅎㅎ박지영 핸드드립 카페! 아.. 2012. 11. 29.
혼자떠난 속초여행) 속초해수욕장 * 영금정 * 엑스포타워 * 청초호 중앙시장으로 건너왔는데 사실 거의 무계획으로 왔던지라 멘붕이 왔었다. 가야지~ 했던 곳 중에 하나인 영금정을 가기엔 시간이 남아서.. 급! 결정한 속초해수욕장! ..이지만 아이폰 카메라로 인해 건진 사진은 거의 없지만 역시나 사람이 거의 없어서 조용하니 앉아 시간을 보내기엔 최고였다 ㅎ 그리고 영금정으로 출발! 역시 무계획이어서 그런지 루트가 좀 맘에 안들긴 했지만 덕분에 속초버스는 참 여러번 탔다 ㅋㅋ 영금정은 숙소에서 중앙시장 가는 방향과 반대다. 속초해수욕장 >>> 중앙시장 > 숙소 > 영금정 뭐 이런 거리다 ㅋㅋ 중앙시장을 거쳐 숙소를 거쳐 영금정 정류장에서 내렸다!! 버스정류장에서 쫌.. 걷긴 해야한다 ㅋㅋ 이번 여행에서 느낀건.. 음.. 카메라를 사야겠다.. 핸드폰으로 안돼.. 힝.. 아주아주.. 2012. 11. 28.

티스토리툴바