반응형 Delphi84 [개발/delphi] 델파이 프로그램에서 로드된 모든 리소스명 얻기 type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private end; var Form1: TForm1; implementation {$R *.dfm} function enumResNamesProc(module: HMODULE; restype, resname: PChar; list: TStrings): Integer; stdcall; begin if HiWord(Cardinal(resname)) 0 then list.Add(' ' + resname) else list.Add(Format(' #%d', [loword(Cardinal(resname))])); Result := 1.. 2011. 12. 22. [개발/delphi] [강좌] 리소스의 활용 2 [강좌] 리소스의 활용 II 리소스의 활용 II 글: 하영재(vaio91@yahoo.com) 델파이 코리아(www.delphikorea.com) 1편 강좌가 나간후 참 오랜만에 2편 강좌를 올리게 되는군여. 죄송합니다. 먹고살다 보니 이런일이.. 흑... 1편 강좌에서는 리소스를 어떻게 프로그램에 링크시키고 불러오고 하는지에 대해서 알아보았었죠... 이번엔 리소스 DLL을 만들고 사용하는 법에 대해 알아보겠습니다. 이번 강좌에서는 AVI, Cur, Ico, Bmp, Jpeg, string을 Dll에 넣고 불러오는 방법에 대해 설명하겠습니다. 그리고 시간이 된다면 Resource의 활용법으로 실행파일을 리소스에 넣고 불러오는 방법에 대해서도 알아보도록 하겠습니다. 그럼 시작하죠...(지금 부터 존칭이 생략.. 2011. 12. 22. [개발/delphi] [강좌] 리소스의 활용 1 [강좌] 리소스의 활용 I 아래에 Resource DLL의 활용 방법에 대한 강좌 요청이 있어서 저의 졸고라도 도움이 되실까 해서 올려 드립니다. 참고가 되시길... 리소스의 활용 I 글: 하영재(vaio91@yahoo.com) 델파이 코리아(www.delphikorea.com) 들어가며... 델파이 코리아(www.delphikorea.com)나 다른 통신사에서 심심치 않게 올라오는 질문중에 Resource File(이하 리소스 파일이라 한다...^^)의 사용에 대한 질문이 있다. 리소스 파일을 만들고 사용하는 문제들에 대한 질문들인데, 여러가지 단편적인 내용만을 가지고 조합을 해야 하니 처음 접하는 분들은 어려움을 느낄 수도 있을 것이다. 이런 분들을 위해 리소스 파일에 대한 모든 부분이라고는 할 수 .. 2011. 12. 22. [개발/delphi] 힌트의 위치와 색상 변경하기 [개발/delphi] 힌트의 위치와 색상 변경하기 procedure TForm1.DoOnShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); var XYPoint : TPoint; begin if HintInfo.HintControl = PlayBtn then begin getcursorpos(XYPoint); XYPoint.Y := XYPoint.Y + 15; with HintInfo do begin HintPos := XYPoint; // 이 버튼 힌트의 위치 바꾸기. HintColor := clAqua; // 이 버튼의 색상만 바꾸기 HintMaxWidth := 50; // 이 버튼 힌트 wordwrap 주기. e.. 2011. 12. 20. [개발/delphi] 윈도우즈 언어 알아보기 [개발/delphi] 윈도우즈 언어 알아보기 시스템에 설치된 IME의 버전을 알아내는 루틴이다. setlength(s, Max_PAth); VerLanguageName(GetSystemDefaultLangID, PChar(S), max_path); SetLength (S, StrLen (PChar(S))); caption := s; 2011. 12. 20. [개발/델파이] 네모나지 않은 폼 만들기 네모나지 않은 폼 만들기 아래의 소스는 폼을 타원형으로 만들어 준다. procedure TForm1.FormCreate(Sender: TObject); var R : HRgn; begin R := CreateEllipticRgn(-15,-15,Width+15,Height+15); SetWindowRgn(Handle,R,True); end; 2011. 12. 20. 이전 1 ··· 7 8 9 10 11 12 13 14 다음 반응형