하루하루

[윈도우즈 API] 윈도우즈 탐색기의 아이콘 뽑아내서 사용하기

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) ImageList1: TImageList; ListView1: TListView; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} const Tool_Controls = 120; File_Controls = 124; function Load..

카테고리 없음 2023. 9. 11. 10:20

[일반/컴포넌트] TMemo 를 화면크기로 인쇄하기

{+------------------------------------------------------------ | Procedure PrintMemo | | Parameters: | aMemo: memo to print | centerVertical: true if output should be centered vertically | centerHorizontal: true if output should be centered horizontally | Call method: | static | Description: | Prints the contents of a memo on the currently selected | printer, using the memos Font. The output can..

카테고리 없음 2023. 9. 11. 10:12

[윈도우즈 API] IE의 현재 url 가져오기

procedure TForm1.Button3Click(Sender: TObject); var p : Pchar; s : string; begin if DDEClientConv1.SetLink('IEXPLORE','WWW_GetWindowInfo') then begin Label1.Caption := 'Connected'; if DDEClientConv1.OpenLink then begin p := (DDEClientConv1.RequestData('0xFFFFFFFF')); s := String(p); Label2.Caption := copy(s,2,pos('","',s)-2); {pick out url from '"www.somewhere.com","title of page",'} strdispose(..

카테고리 없음 2023. 9. 9. 08:15

[네트웍/인터넷] 네트워크 컴퓨터가 존재하는지 검사하기

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function RemoteComputerExists(const ComputerName : String) : Boolean; { R..

카테고리 없음 2023. 9. 9. 08:13

[일반/컴포넌트] 문자열의 바이트수가 아닌 실제 글자수 구하기

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} // 실제 글자수를 조사하는데 Length() 함수는 사..

카테고리 없음 2023. 9. 8. 09:04

[윈도우즈 API] 폼을 최하위(?)로 설정하기

// Edit1, Memo1 는 그냥 올려놓은 것임 // window 가 inactive 이지만 Edit1, Memo1 에 입력은됨 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Memo1: TMemo; private { Private declarations } procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE; public { Public declarations } end; var Form1: TForm1; i..

카테고리 없음 2023. 9. 8. 09:02

[일반/컴포넌트] StringGrid의 선택된 Cell을 버튼으로 보이기

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure FormActivate(Sender: TObject); procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState); procedure StringGrid1DblClick(Sender: TObject); private { Private declarations } public { Pub..

카테고리 없음 2023. 9. 7. 08:28

[시스템] 프린터의 "용지 공급" 리스트 구하기

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Printers, WinSpool; 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} procedure GetBinnames( sl: TStrings ); type TBi..

카테고리 없음 2023. 9. 7. 08:26

페이징

1 2 3 4 ··· 10

티스토리툴바