Tips & Tech

  • TStringGrid 짝수 홀수 라인별 색상 넣기
    TStringGrid 의 OnDrawCell 이벤트에 아래 코드를 넣습니다... procedure TfrmSelectPage.sgPageDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var MyPos:...
  • 상위 폴더 구하기 꽁수.
    음...포인트 놀이에 빠질까봐.. 무섭네요. function GetParentDirectory(path : string) : string; begin result := ExpandFileName(path + '\..') end; c:\dir1\dir2\filename.exe -> c:\dir1\dir2...
  • 입력 컨트롤이 암호 입력 상태인지 확인 하는 뻘팁.
    If SendMessage(ControlHandle, EM_GETPASSWORDCHAR, 0, 0) = 0 Then begin // 일반 입력상태. end Else begin // * 처리된 암호 입력상태. end;
  • String resource 사용방법.
    1. 아래와 같이 rc 파일을 만듭니당. STRINGTABLE { 1000, "English" 1001, "Display selected" 1002, "Yes" 1003, "No" 1004, "Maybe" } 2. 위에서 맹근 rc 파일을 res 파일로 컴파일.. 3. 프로그램...
  • MessageDlg에 default 버턴 지정
    사용방법 if DefaultMessageDlg('메세지 제목', '메세지 내용', mtConfirmation, mbYesNoCancel, mrNo, // <-- 디폴트 버턴 지정. 0) = mrYes then ShowMessage('....'); function DefaultMessageDlg(const A...
  • TCheckBox에 ReadOnly 속성을 달아 보자.
    type TReadOnlyCheckBox = class(TCheckBox) private fReadOnly: Boolean; protected procedure WmLButtonDown(var Msg: TWMLButtonDown); message Wm_LButtonDown; procedure WmLButtonUp(var Msg: TWML...
    • 구창민
    • •
    • 2010.12.31 10:17
    • 1 COMMENTS
    • /
    • 0 LIKES
    MDI Child 들을 탭으로 표현해보자~
    Tabbed Interface (MTI) For Your MDI Delphi Applications Use Tabs to Navigate Through MDI Child Forms in your MDI Delphi Application By Zarko Gajic, About.com Guide See More Abo...
    • 샤이닝젬
      •
      2011.01.28 14:45
      옷! 델3 사용중인데 조금 수정하니 되는 군요 ㅋㅋ신기합니다.
    • 구창민
    • 2010.12.31 10:15
    • 0 COMMENTS
    • /
    • 0 LIKES
    MSMQ Thread
    //Borland Talk 서 펐습니다~ unit MQReader; interface uses Windows, Messages, SysUtils, Variants, Types, Classes, Forms, DB, DBClient, Controls, ActiveX, SQLTimSt, StrUtils, cxRichEdit, c...
    • 구창민
    • 2010.12.31 10:14
    • 0 COMMENTS
    • /
    • 0 LIKES
    MSMQ(Microsoft Message Queuing) 를 사용해보자
    First of all you have to install MSMQ.You will do it through Control panel - > Add remove programs - > Add / Remove Windows components. Second you will need to access MSMQ fo...
    • 구창민
    • 2010.12.31 10:11
    • 0 COMMENTS
    • /
    • 0 LIKES
    웹브라우저 캡처
    uses ActiveX; procedure WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName) ; var viewObject : IViewObject; r : TRect; bitmap : TBitmap; begin if wb.Document <> ni...
    • 구창민
    • •
    • 2010.12.31 10:10
    • 4 COMMENTS
    • /
    • 0 LIKES
    도스 압축 패스를 실제 패스로 바꾸는 API (%CommonProgramFiles% 따위)
    도스 압축 패스를 실제 패스로 바꾸는 API %CommonProgramFiles% %SystemRoot% %windir% 이런값들 var rPath : array [0..1023] of Char; begin ExpandEnvironmentStrings('%SystemRoot%\System32\mspaint...
    • 라벤더
      •
      2010.12.31 10:12
      우와.... 창민님! 달리셨군요~~ ㅋ_ㅋ
    • 구창민
      •
      2010.12.31 10:20
      ㅋㅋㅋㅋㅋㅋㅋ 눈치 채셨군용
    • 소나기
      •
      2010.12.31 10:55
      구창민님 우와 진짜 대단하시네요. 이니셜 D 급으로 달리셨군요. ㅎㅎ
    • 백록화
      •
      2010.12.31 12:13
      도스압축패스 라고 해서 먼가 했네요... ^^ 환경변수명의 값을 가져오는것이군요. 
    • 구창민
    • 2010.12.31 10:08
    • 0 COMMENTS
    • /
    • 0 LIKES
    현재 로그인한 계정이 관리자 그룹유저인지 알아내기
    아..출처가 생각이 안나네요.. About.com 인거 같은데.. const SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority = (Value: (0, 0, 0, 0, 0, 5)); SECURITY_BUILTIN_DOMAIN_RID = $00000020; D...
    • 구창민
    • 2010.12.31 10:04
    • 0 COMMENTS
    • /
    • 0 LIKES
    StringToByte, ByteToString
    type TByteArr = array of byte; function StringToBytes(aString: String): TByteArr; var i: integer; begin SetLength( Result, Length(aString)) ; for i := 0 to Length(aString) - 1 do R...
    • 구창민
    • •
    • 2010.12.31 10:00
    • 1 COMMENTS
    • /
    • 0 LIKES
    스트링그리드에서 마우스 휠 정상적으로 먹게 하기
    역시 커스텀 그리드에서 상속받은 애들은 휠이 정상동작을 안하는 것 같습니다.. MS 공용 컨트롤들처럼 동작하게 하려면 강제로 키발생이 답인듯.. 아래는 테스트된 코드입니다~ procedure AnyMessage(var Msg: ...
    • 히로
      •
      2011.11.23 08:56
      오옷!! 찾고있던 기능인데 감사합니다.마치 ListView처럼 마우스 휠이 동작해서 무척 편하네요^^
    • 구창민
    • •
    • 2010.12.31 09:59
    • 1 COMMENTS
    • /
    • 0 LIKES
    인디를 이용한 메일보내기(Delphi2010)
    델파이2010 에서 한글이 깨져서 삽을 펐네요..-_ㅜ;; 아래는 테스트된 코드입니다~ 즐거운 프로그래밍~ unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ...
    • 백거
      •
      2016.06.20 12:04
      님과 통화하고 싶네요(백거: 010-4095-1948)
    • 구창민
    • 2010.12.31 09:57
    • 0 COMMENTS
    • /
    • 0 LIKES
    윈도우즈 사용자 계정 생성 수정 삭제
    일전에 필요해서 테스트 해두었던 코드입니다~ 자알~됩니다~ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type T...
    • 구창민
    • 2010.12.31 09:56
    • 0 COMMENTS
    • /
    • 0 LIKES
    ShellExecuteEx 를 이용해서 특정 프로그램을 실행하고 끝날때까지 대기하기
    uses ShellApi; ... var SEInfo: TShellExecuteInfo; ExitCode: DWORD; ExecuteFile, ParamString, StartInString: string; begin ExecuteFile:='c:\Windows\Calc.exe'; FillChar(SEInfo, SizeOf...
    • 구창민
    • 2010.12.31 09:54
    • 0 COMMENTS
    • /
    • 0 LIKES
    ADOStoredProc 로 MSSQL 프로시저에서 @Return_Value 사용하기
    out 을 사용하지 않고 리턴값을 하나만 받을때 요긴하게 사용할 수 있습니다~ 아래는 테스트 해본 내용이구요 일단 자알~됩니다~ uses ADODB; {$R *.dfm} function CreateADOConnection : TADOConnec...
    • 구창민
    • 2010.12.31 09:51
    • 0 COMMENTS
    • /
    • 0 LIKES
    현재 로그인한 사용자의 SID 구해내기
    저장 해 두면 반드시 또 쓰일날이 오겠지요 ㅎㅎ const HEAP_ZERO_MEMORY = $00000008; SID_REVISION = 1; type PTokenUser = ^TTokenUser; TTokenUser = packed record User: TSidAndAttrib...
    • 구창민
    • 2010.12.31 09:48
    • 0 COMMENTS
    • /
    • 0 LIKES
    윈도우즈 디렉토리, 내문서등등.. 특별한 디렉토리들 Path 구해내기
    광렙을 위해 어바웃닷컴서 펐습니다..-_-; uses ShlObj, ShellApi; function GetSpecialFolderPath(folder : integer) : string; const SHGFP_TYPE_CURRENT = 0; var path: array [0..MAX_PATH] of...
←First Page
1 2 3 4 5 6 7 8 9 10
Last Page→
한델 로그인 하기