분류 전체보기888 [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. 취미) 미니 피포페인팅 완성! 색칠도 못하는 사람이라 남들이 하는거 구경만 하다가~ 고민고민 하다가 미니 피포페인팅으로 도전 ㅋㅋ 욕심같아선 크고 멋진 그림 하고팠지만..! 나름 만족! 혼자는 이틀은 걸렸을 것 같은데 구경하던 동생이 껴들어서 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. 이전 1 ··· 82 83 84 85 86 87 88 89 다음
