[일반/컴포넌트] 설치된 모든 프로그램 읽어오기
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Registry, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);..
[윈도우즈 API] Taskbar 의 특정 위치에 popup 메뉴 띄우기
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Button1: TButton; PopupMenu1: TPopupMenu; Menu1: TMenuItem; procedure Button1Click(Sender: TObject); procedure Menu1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation ..
[윈도우즈 API] Taskbar 의 특정 위치에 popup 메뉴 띄우기
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Button1: TButton; PopupMenu1: TPopupMenu; Menu1: TMenuItem; procedure Button1Click(Sender: TObject); procedure Menu1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation ..
[COM/OLE] 특정 사이트의 form 을 강제 submit 하기
// Google 사이트에서 'Delphi' 키워드로 검색하는 예제 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, MSHTML, ShellAPI; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations ..
[일반/컴포넌트] Zlib 를 이용한 압축과 해제
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Zlib, ComCtrls, DbiTypes, DbiProcs, DbiErrs; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; RichEdit1: TRichEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarat..
[네트웍/인터넷] Network Packet Capture (Winsock2)
// 아래 소스를 컴파일 하려면 Jedi 사이트에서 Winsock2.pas 파일을 다운받아야 합니다 // ftp://delphi-jedi.org/api/Winsock2.zip unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, WinSock2; type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject);..
[일반/컴포넌트] 실행파일에서 잃어버린 DFM 파일 뽑아내기
// 델파이로 프로그램 작성하다 dfm 파일 삭제하여 다시 만든 경헙이 있다면 // 한번 사용해 보세요 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TDFMorTXT = (ConvertToForm,..