Delphi & Oracle

  
function GetFileInfo(AFileName: string): string;
var
  VerInfoSize: Cardinal;
  VerValueSize: Cardinal;
  Dummy: Cardinal;
  PVerInfo: Pointer;
  PVerValue: PVSFixedFileInfo;
begin
  Result := '';

  VerInfoSize := GetFileVersionInfoSize(PWideChar(AFileName), Dummy);
  GetMem(PVerInfo, VerInfoSize);
  try
    if GetFileVersionInfo(PWideChar(AFileName), 0, VerInfoSize, PVerInfo) then
      if VerQueryValue(PVerInfo, '\', Pointer(PVerValue), VerValueSize) then
        with PVerValue^ do
        begin
          Result := Format('%d.%d.%d.%d', [HiWord(dwFileVersionMS), LoWord(dwFileVersionMS), HiWord(dwFileVersionLS), LoWord(dwFileVersionLS)]);
        end;
  finally
    FreeMem(PVerInfo, VerInfoSize);
  end;
end;

  
uses TypInfo;

var
  i: Integer;
  Prop: PPropInfo;
begin
  for i := 0 to AForm.ComponentCount -1 do
  begin

    if AForm.Components[i] is "Exception Class" then
    begin
      {Exception Class Coding}
    end
    else begin
      Prop := nil;
      Prop := GetPropInfo(AForm.Components[i].ClassInfo, 'Font');

      if Prop <> nil then
        SetPropValue(GetObjectProp(AForm.Components[i], 'Font'), 'Name', AFontName);
    end; // End of if AForm.Components...
  end;  // End of for
end;

  
var
  vHwnd: HWND;
  sStr: PChar;
  vLParam: DWORD;
begin
    vHwnd := FindWindow('TfrmMain', nil);

    if vHwnd <> 0 then
    begin
        sStr := PChar('input send string');
        vLParam := GlobalAddAtom(sStr);
        PostMessage(vHwnd, WM_USER + 9791, LongInt(Handle), vLParam);
    end;
end;

  
  procedure PostMessageFromString(var msg: TMessage); message WM_USER + 9791;

  
var
  pStr: PChar;
  sString: string;
begin
   GetMem(pStr, 1024);

    if GlobalGetAtomName(msg.LParam, pStr, 1024) > 0 then
      sString:= StrPas(pStr);

    GlobalDeleteAtom(msg.LParam);
    FreeMem(pStr);


    ShowMessage(sString);
end;

프로그램을 개발하다 보면 자동으로 생성되는 백업파일이 불필요하게 느껴질때도 있다.

이런때 Options에서 자동생성을 막아 두면 편리하다.

[Delphi7]

Tools -> Editor Options -> Display -> Display and file options -> Create backup file

procedure DrawRounded(Control: TWinControl; RoundPer: integer) ;
var
   R: TRect;
   Rgn: HRGN;
begin
   with Control do
   begin
     R := ClientRect;
     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, RoundPer, RoundPer) ;
     Perform(EM_GETRECT, 0, lParam(@r)) ;
     InflateRect(r, - 4, - 4) ;
     Perform(EM_SETRECTNP, 0, lParam(@r)) ;
     SetWindowRgn(Handle, rgn, True) ;
     Invalidate;
   end;
end;

procedure OnKeyPress(Sender: TObject; var Key: Char);

begin

  if Key in ['제한할 키'] then

    Key := #0;

end;

OpenDialog처럼 Folder를 선택할 수 있는 기능

function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;
function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string): Boolean; overload;

uses FileCtrl;

var

  vDir: string;

begin

  // SelectDirectory("Dialog Caption", "Root", "var Directory)

  if SelectDirectory('Select Directory', 'D:\', vDir) then

    Edit1.Text := vDir;

end;

StrToInt는 문자로된 숫자를 숫자로 변환하는 function이다.

숫자가 아닌 순수 문자를 변환하게 되면 에러가 발생한다.

일반적으로 문자인지 숫자인지 판별하기 위해서는 StrToIntDef를 사용하지만 이 함수로도 판독이 되지 않는 경우가 있다.

예를 들어 'X01'의 경우 X를 헥사로 인식하기 때문에 StrToInt('X01') = 1이 된다.

function IntToKorNum(AValue: Int64): string;
const
  NumberChar: array['0'..'9'] of string = ('영', '일', '이', '삼', '사', '오', '육', '칠', '팔', '구');
  LevelChar: array[0..3] of string = ('', '십', '백', '천');
  DecimalChar: array[0..5] of string = ('', '만', '억', '조', '경', '현');
var
  vStr: string;
  vDecimal: Boolean;
  i, vLevel: Integer;
begin
  Result := '';

  vStr := IntToStr(AValue);
  vDecimal := False;

  for i := 1 to Length(vStr) do
  begin
    vLevel := Length(vStr) -i;

    if vStr[i] <> '0' then
    begin
      vDecimal := True;

      if vLevel mod 4 = 0 then
      begin
        Result := Result + NumberChar[vStr[i]] + Decimalchar[vLevel div 4];
        vDecimal := False;
      end
      else
        Result := Result + NumberChar[vStr[i]] + LevelChar[vLevel mod 4];
    end
    else if (vLevel mod 4 = 0) and vDecimal then
    begin
      Result := Result + DecimalChar[vLevel div 4];
      vDecimal := False;
    end;

  end;
end;