본문 바로가기

분류 전체보기

 (86)
[네트웍/인터넷] Getting Novell Netware Login NAME 두가지 방법이 있습니다 [1]. Delphi/Novell Libraries You will need to have the Delphi/Novell Libraries (these are available from Novell) The following code is just sat inside an onclick event for a button, it uses the Netware API's from Client32 to perform a NWDSWhoAmI which returns the name of the connected Novell user. Steve Conner steve@ashursts.com Procedure TForm1.Button1Click(Sender: TObject); Var cC..
[시스템] 윈도우즈 전체의 키보드 입력 금지 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} {IRQNum Tabelle: Master: IRQ..
[윈도우즈 API] CTRL+ALT+DEL 에 나타나지 않는 프로그램 // Task List (CTRL+ALT+DEL 를 눌렀을때 나타나는 리스트) 에 나타나지 // 않는 프로그램 만들기 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; const R..
[일반/컴포넌트] ListView 의 column header 오른쪽에 이미지 넣기 > When I set ImageIndex of TListColumn to 1, an image appears to the left > side of the column header. But I wish the image appears to the right side > of the column header,as commonly seen. I don't know how. You can specify the HDF_BITMAP_ON_RIGHT format (requires comctl32.dll version 4.70+ IE3+) by using the Header_GetItem() and Header_SetItem() macros... const HDF_BITMAP_ON_RIGHT = $1000; var..
[윈도우즈 API] 작업표시줄의 "항상 위" 검사하여 설정하기 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} procedure TForm1.Button1Click(Sender: TObject); Var hw: HWND; begin..
[일반/컴포넌트] 문자열 프로시저명으로 실제 프로시저 호출하기 // 주의) 아래 소스의 단점은 각 프로시저의 파라미터를 넘길 수 없습니다 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMyProc = Procedure; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } Procedure ExecProc(MyProcStr: String); Published Procedure MyProc1; P..
[일반/컴포넌트] StringGrid의 중간에 제목 Cell 두기 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect; State: TGridDrawState); procedure StringGrid1SelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean); procedure FormCreate(Sender: TObject); pr..
[시스템] process 가 사용한 메모리 구하기 // Works only on Windows NT systems (WinNT, Win2000, WinXP) uses psAPI; procedure TForm1.Button1Click(Sender: TObject); var pmc: PPROCESS_MEMORY_COUNTERS; cb: Integer; begin cb := SizeOf(_PROCESS_MEMORY_COUNTERS); GetMem(pmc, cb); pmc^.cb := cb; if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then Label1.Caption := IntToStr(pmc^.WorkingSetSize) + ' Bytes' else Label1.Caption := 'Unable to ..
[윈도우즈 API] 마우스 위치의 콘트롤(콤포넌트)을 조사하기 // 마우스 포인터 위치의 콘트롤(콤포넌트)의 이름을 폼의 Caption에 // 출력하는 예로 아래의 Label1, Edit1, Memo1, Button1 등은 임의로 // 올려놓으시고 테스트 해보세요 // Panel 안에 있는 콘트롤도 구분할 수 있습니다 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Memo1: TMemo; Button1: TButton; private { Private declarations } procedure WndProc(var..
[윈도우즈 API] 휴지통에 파일을 버리는 법 program del; uses ShellApi; procedure Form1.Button1Click(Sender: TObject); var T:TSHFileOpStruct; P:String; begin P:='C:WindowsSystemEL_CONTROL.CPL'; With T do Begin Wnd:=0; wFunc:=FO_DELETE; pFrom:=Pchar(P); fFlags:=FOF_ALLOWUNDO End; SHFileOperation(T); End.

티스토리툴바