본문 바로가기

전체 글

 (88)
[시스템] Keyboard Hook Product: Delphi32; Q) How can I create a system wide keyboard hook under Win32? A) The following example demonstrates creating a system wide windows hook under Win32. The example provides both the code for the system hook dll and an example application. The hook function that we will create will also demonstrate advanced coding techniques such as sharing global memory across process boundaries u..
[일반/컴포넌트] 투명한 Bitmaps 인쇄 Hello All!! Any help for a programmer in the little woods of Rochester?? I can display several transparent bitmaps onto the screen canvas, but when it comes to printing... It is a different story! I use Microsoft's DrawTransparentBitmap routine to display the graphics onto the screen. And I tried the same thing for printing and nothing comes out but black boxes. I have taken care of the stretchi..
[윈도우즈 API] 현재 실행된 모든 프로그램의 Caption 읽어오기 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function GetTitle(WinHandle: HWND): String; var TitleLn : integer; ..
[일반/컴포넌트] 숫자앞의 무효한 0 제거하기 // For example: // '000' --> '0' // '001' --> '1' // '010' --> '10' // '100' --> '100' // '127.000.000.001' --> '127.0.0.1' unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public ..
[일반/컴포넌트] MS-OutLook 으로 메시지 보내기 If you are using MSOutlook then this should do the trick, otherwise I don't have a clue. Unit1 code: unit Unit1; {*************************************************************************} { Programmer: Kevin S. Gallagher } { Description: Shows simple example of sending a message via MS-OutLook } { Comments: } { 1. You need to place a valid email address into the } { textbox "txtMailTo". } { 2. ..
[일반/컴포넌트] 열거형(Enumerated) 상수를 문자열로 바꾸기 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, typinfo, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TNumberType = (Zero, One, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten); var Form1: TForm1; implementation {$R *.DF..
[일반/컴포넌트] 주어진 영역의 화면 캡처 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure ScreenShot(x : integer; y : integer; Width..
[윈도우즈 API] 시스템 사운드 연주하기 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MMSystem; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin PlaySound(pChar('SYSTEM..

티스토리툴바