Delphi 8

강제종료 프로그램 ㅎㅎ

내가 만든 강종 프로그램... 약간 수정했네요... C:\ 가 있어야 하고,, C:\가 없으면 실행불 =ㅅ=; C드라이브에 Config 파일을 생성합니다. 실행시키고 1단계 2단계 3단계 설정하시고 스타트하시면 됩니다. 재미로 만들었고 특별한 상황에 요긴하게 쓰면 ㅇㅋ --- 발로짠 코드 =ㅅ=; var reboot: Treboot; gTray: TNOTIFYICONDATA; implementation {$R *.dfm} function Treboot.MyExitWindows(RebootParam: Longword): Boolean; var TTokenHd: THandle; TTokenPvg: TTokenPrivileges; cbtpPrevious: DWORD; rTTokenPvg: TTokenPrivi..

My Study/Delphi 2009.02.09

델파이 NIC 통신상태 구해오는 소스

IPHelper 를 이용한 NIC 상태 구해오는 소스입니다! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; const MAX_INTERFACE_NAME_LEN = $100; ERROR_SUCCESS = 0; MAXLEN_IFDESCR = $..

My Study/Delphi 2009.01.15

해당 컴퓨터 MAC 어드레스 구해오기!

자신의 컴퓨터 아이피로 MAC 어드레스 구해오는 소스입니다! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Winsock; type TForm1 = class(TForm) Button1: TButton; Edit2: TEdit; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; function SendARP(Destip,scrip:DWORD;pmacaddr:PDWORD..

My Study/Delphi 2009.01.15

DB 커넥션 소스

델파이에서 ADO를 이용해서 SQL 접속문이다,, 폼크레이트할때 넣으면 되겠습니다 ㅎ procedure Tmain.FormCreate(Sender: TObject); var strConn, 아이피: String; begin ADOConnection1.Connected := false; strConn := 'Provider=SQLOLEDB.1;Password=디비비번;Persist Security Info=True;User ID=디비아이디;'; strConn := strConn + 'Initial Catalog=디비명;Data Source=' + 아이피+ ',1433'; ADOConnection1.ConnectionString := strConn; ADOConnection1.ConnectionTimeout..

My Study/Delphi 2008.12.15