삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

예전에 WMI(Windows Management Instrumentation)를 사용해서 실무프로젝트를 진행했던 일이 있습니다. 대략 2~3년전에 했던 것으로 기억을 하는데 당시만해도 WMI를 다루는데는 문제가 없을거라 느껴졌다가 근래에 와서 다시 WMI를 사용할 일이 있어서 보는데 예전에 했던것이 아무것도 기억이 안나네요. 대략적으로라도 정리만 해놨더라면 다시 처음부터 알아보는 일이 없었을텐데.. 프로그래머에게 있어서 자신이 했던 기술에 대해서는 꼭 문서로 남겨서 나중에 필요할 때 꺼내서 볼 수 있는 메모의 스킬은 꼭 필요한 것 같습니다. WMI(Windows Management Instrumentation) 개요WMI(Windows Management Instrumentation)는 엔터프라이즈 네트..

Version 11.60 자식폼을 최소화 했을 경우에 태스크바로 내려가지 않고 좌측 하단으로 내려간다 -_-; 외국에서는 저렇게 사용하는지, 아니면 MDI 환경을 고려한 것인지는 몰라도.. 나는 여간 신경쓰이고 못마땅하다 ㅋㅋㅋㅋㅋ 소스 붙잡고 엎어치기 몇 번 한 결과.. TspDynamicSkinForm 컴포넌트의 MinimizeDefault 를 True로 바꿔주면 된다. 기본적으로 컴포넌트가 생성이 될 때 False 로 셋팅을 하기 때문에 좌측 하단으로 내려가게 된다. 자.. 이제 Form의 Create의 부분에서 TspDynamicSkinForm 컴포넌트의 MinimizeDefault 속성을 True로 바꿔보자. 아차! TspDynamicSkinForm 컴포넌트를 사용해서 창을 띄웠을 경우 자식폼은..

Version 11.60 TspDynamicSkinForm 컴포넌트를 사용해서 다중폼을 만들었을 경우에, 메인폼이 프로그램에서 생성한 다른 폼 뒤로 갈 경우 아래와 같은 잔상(?)이 생긴다. 아.. 정말 짜증난다. 워낙 영어랑 친하지도 않아서 제작사에 메일을 보내서 알아볼 수도 없고... 어떻게 어떻게 소스타고 들어가서 확인해 본 결과.. 프로젝트 소스에서 Application.MainFormOnTaskbar 를 False 로 바꿔주거나 주석처리(기본값이 False) 해주면 된다. program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2}; {$R *.res} begin Application.Initial..

프로그래밍을 하다보면 자주 사용하는 함수나 폼이 없는 unit를 생성해서 초기화를 해야 할 경우가 있다. unit에 프로시저나 함수를 한 개 만들어서 초기화 하는 경우도 있겠지만.. 나 같은 경우 아래와 같이 사용한다. unit Unit1; interface uses Classes; var TestStringList : TStringList; implementation initialization TestStringList := TStringList.Create; finalization FreeAndNil(TestStringList); end. 맨 아래 initialization 에서 초기화를 하고, finalization 에서 메모리를 반납한다. 참 쉽죠잉~?

현재 사용중인 익스플로러 버전을 확인하는 함수이다. 레지스트리를 사용하기 때문에 비스타 혹은 윈도우7에서 사용할 경우에는 UAC 권한을 상승시켜서 봐야한다. 또 소스를 보면 알겠지만 Major 버전만 가져오는것이지만, 필요에 따라 바꿔서 쓰자. function ExplorerVerCheck : Integer; var Reg : TRegistry; Buffer : String; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer', False); Buffer := Copy(Reg.ReadString('Version'), 1, 1); Result ..

파일명에는 들어가서는 안 될 문자가 몇 개 있다. 1. \ 2. / 3. : 4. * 5. ? 6. " 7. 9. | 물론 탐색기같은 곳에서 저런 문자를 쓰면 친절하게 알려주지면, 소스내에서 코딩을 할 때 무심코 저런 문자를 쓰거나, 날짜 형식(14:32) 같은 것을 파일명에 포함해버리면 에러가 난다. 예외처리를 잘 해두면 원인을 파악하는데 빠르지만, 그렇지 않을 경우에는 헤메는 경우가 있.. (나만 그랬나? -_-;) 아래와 같은 함수로 파일명을 체크한 후에 안전하게 저장을 하면 끗~ function FileNameValidCheck(const FileName: String) : Boolean; var i : Integer; begin Result := True; i := GetFileAt..

탐색기 같은 곳에서 파일을 Drag&Drop 하여 폼에 올리고 싶은 경우에는 아래와 같이 하면 된다. // uses 절에 ShellAPI 를 추가하고, FormCreate 같은 곳에 아래와 같은 코드를 추가한다. DragAcceptFiles(Handle, True); // 그리고 적당한 곳에 파일이 Drag&Drop 되었을 때 받을 이벤트를 추가한다. procedure WMDropFiles(var Msg: TMessage); message WM_DROPFILES; 위와 같은 작업이 반드시 선행되어져야 한다. procedure TForm1.WMDropFiles(var Msg: TMessage); var DropCnt : Integer; hDropFile : THandle; FileName : array[0..

var BMP : TBitmap; StoredUnits : TQRUnit; begin frmWT4107B0.Prepare; StoredUnits := frmWT4107B0.Units; frmWT4107B0.Units := Pixels; try for i := 1 to frmWT4107B0.QRPrinter.PageCount do begin BMP := TBitmap.Create; BMP.Width := Round(frmWT4107B0.Page.Width); BMP.Height := Round(frmWT4107B0.Page.Length); frmWT4107B0.QRPrinter.PageNumber := i; BMP.Canvas.Draw(0, 0, frmWT4107B0.QRPrinter.Page); BMP...

집에서의 개발환경은 아래와 같다. 데스크탑 : 윈도우7 64bit 프로페셔널 K, 델파이 2007, 델파이 2010 노트북 : 윈도우 XP 프로페셔널 SP3, 델파이 2007 그간 디버깅 할 때 아무런 문제가 없었는데 사무실 컴퓨터를 새걸로 바꿨다. 정확히 말하면 바꿔주셨다 ㅋㅋㅋ 환경은 윈도우 XP 홈에디션 + 델파이 2007 이다. 헌데 어느순간부터인지.. 첨부터 그랬는지는 모르겠지만, 자꾸 디버깅할 때 컴퓨터가 먹통이 되어버려서 전원을 껏다 켜야 했다. 아.. 정말 짜증난다. -_-; 이대로 도저히 안되겠다 싶어 검색을 해봤는데 역시나 방법이 있었다. "고급 텍스트 서비스 사용 안함" 에 체크를 해주고 적용을 한다. 하지만.. 저렇게 하면 정작 델파이에서 한글이 안먹힌다는;;; 어쨋든 저렇게 해서 ..

퀵리포트는 지속적으로 사용하던 것이 아니라 매 번 할 때마다 헷갈리거나 까먹는다 -_-; 그래서 찾아보던 것 중 정말 괜찮은 사이트를 발견했다. 아래의 출처에서 확인하시라~~ 출처 : http://www.delphiunion.com/dwp/QR/qreport.htm

procedure Tfrm_Main.proSetInstallInfo; var Reg : TRegistry; begin Reg := TRegistry.Create; try try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\hPop', True); Reg.WriteString('Displayname', 'hPop'); Reg.WriteString('UninstallString', '"' + ExtractFileDir(hPopExe) + '\hPopUnInstall.exe' + '"'); except // end; finally FreeAndNil(Reg); end; end;..

uses QRExport procedure TForm1.Button2Click(Sender: TObject); var EP : TQRHTMLDocumentFilter; begin EP := TQRHTMLDocumentFilter.Create('d:\test.html'); try Form2.QuickRep1.ExportToFilter(EP); finally FreeAndNil(EP); end; end; Others : HTML : TQRHTMLDocumentFilter ASCII : TQRAsciiExportFilter CSV : TQRCSVFilter Pro : RTF : TQRRTFExportFilter WMF : TQRWMFExportFilter Excel : TQRXLSFilter 출처 : http..

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin AnimateWindow(Self.Handle, 1000, AW_HIDE or AW_BLEND); end; procedure TForm3.FormShow(Sender: TObject); begin AnimateWindow(Self.Handle, 1000, AW_ACTIVATE or AW_BLEND); end; 출처 : http://delphi.borlandforum.com/impboard/impboard.dll?action=read&db=del_tip&no=264

// 날짜 FieldByName('FIELD').EditMask := '9999-99-99;0;'; // 통화량 (uses DB) TNumericField(FieldByName('FIELD')).DisplayFormat := '#,###';

// 핫키 설정 FormCreate 이벤트 RegisterHotKey(Handle, WM_USER + 1, MOD_CONTROL, Ord('1')); RegisterHotKey(Handle, WM_USER + 2, MOD_CONTROL, Ord('2')); RegisterHotKey(Handle, WM_USER + 3, MOD_CONTROL, Ord('3')); RegisterHotKey(Handle, WM_USER + 4, MOD_CONTROL, Ord('4')); RegisterHotKey(Handle, WM_USER + 5, MOD_CONTROL, Ord('5')); RegisterHotKey(Handle, WM_USER + 6, MOD_CONTROL, Ord('6')); RegisterHotKey..