::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2003-03-07 21:01:43, Hit : 5552, Vote : 1428) 
 CD-ROM의 변경여부를 감시하기

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
  DBT_QUERYCHANGECONFIG       = $0017;
  DBT_CONFIGCHANGED           = $0018;
  DBT_CONFIGCHANGECANCELED    = $0019;
  DBT_DEVICEARRIVAL           = $8000;
  DBT_DEVICEQUERYREMOVE       = $8001;
  DBT_DEVICEQUERYREMOVEFAILED = $8002;
  DBT_DEVICEREMOVEPENDING     = $8003;
  DBT_DEVICEREMOVECOMPLETE    = $8004;
  DBT_DEVICETYPESPECIFIC      = $8005;
  DBT_USERDEFINED             = $FFFF;
var
  tmpStr : String;
begin
  inherited;
  case Msg.wParam of
    DBT_DEVICEARRIVAL        : tmpStr := 'CD INSERTED!!!';
    DBT_DEVICEREMOVECOMPLETE : tmpSTr := 'CD REMOVED!!!';
  end;
  ShowMessage(tmpStr);
end;

end.



531   [윈도우즈 API] 날짜변형에 대해서...  김영대 2003/03/04 5664 1408
530   [데이터베이스] Query.RecordCount = -1  김영대 2003/03/07 5660 1315
529   [일반/컴포넌트] 문자열의 바이트수가 아닌 실제 글자수 구하기  김영대 2003/03/07 5660 1233
528   [일반/컴포넌트] INF 파일 설치하기  김영대 2003/03/26 5658 1386
527   [알고리즘] 두 문자열의 유사도 검사하기  김영대 2004/09/04 5651 1270
526   [일반/컴포넌트] ListBox에 Edit 올려 항목 편집하기  김영대 2006/02/28 5648 1438
525   [일반/컴포넌트] 컴포넌트에 동적으로 이벤트 할당하기  김영대 2004/10/08 5648 1280
524   [윈도우즈 API] 전체 화면(Full Screen) 만들기  김영대 2003/03/29 5642 1436
523   [일반/컴포넌트] 임시파일명 자동으로 생성하기  김영대 2003/03/07 5642 1789
522   [시스템] 디스크의 남은 용량 등등...  김영대 2003/03/05 5639 1533
521   [시스템] NTFS 파일 시스템 사용 여부  김영대 2004/08/25 5636 1467
520   [시스템] 내 프로그램의 실행 우선순의 바꾸기  김영대 2004/07/24 5635 1537
519   [데이터베이스] DB에서 자음(ㄱ,ㄴ,ㄷ....)으로 SELECT 하기  김영대 2003/03/12 5633 1321
518   [일반/컴포넌트] TObject의 프로퍼티를 문자열로 참조하기  김영대 2003/03/06 5632 1687
517   [데이터베이스] DB에 저장된 JPEG(JPG)를 DBGrid에 출력하기  김영대 2003/03/06 5629 1340
516   [일반/컴포넌트] 9가지 파일정보  김영대 2003/03/05 5625 1416
515   [윈도우즈 API] 폼의 최대/최소화 막기  김영대 2003/03/06 5624 1516
514   [윈도우즈 API] 도구모음 Bar는 어떻게 만드는지...  김영대 2003/03/04 5609 1574
513   [데이터베이스] Stored Procedure 작성을 어떻게 하나  김영대 2003/03/04 5599 1451
512   [윈도우즈 API] 작업표시줄의 "항상 위" 검사하여 설정하기  김영대 2003/03/07 5596 1380
511   [윈도우즈 API] Task bar 에 나타나지 않는 프로그램 만들기  김영대 2003/03/07 5593 1624
510   [윈도우즈 API] 모서리가 둥근(rounded ends) TEdit 만들기  김영대 2003/03/07 5593 1412
509   [알고리즘] 구분자(delimiter)를 사용한 문자열 파싱(parsing)  김영대 2003/11/13 5591 1223
508   [일반/컴포넌트] 명령행 인자(command line argument) 사용하기  김영대 2003/03/05 5585 1420
507   [일반/컴포넌트] TIFF Images and manipulation  김영대 2003/03/07 5579 1405
506   [시스템] 마우스 포인터 속도 바꾸기  김영대 2003/03/06 5574 1367
505   [일반/컴포넌트] TRichEdit 콤포넌트 없이 RTF파일 인쇄하기  김영대 2003/03/05 5574 1570
504   [윈도우즈 API] 현재 키보드 입력 언어 구하기  김영대 2004/07/24 5570 1478
503   [네트웍/인터넷] 인터넷에 LAN 또는 Modem으로 접속중인지 검사  김영대 2003/03/07 5563 1536
502   [시스템] 여러 프로세스간에 자료 공유하기  김영대 2003/03/04 5561 1413
  [시스템] CD-ROM의 변경여부를 감시하기  김영대 2003/03/07 5552 1428
500   [윈도우즈 API] IE 임시 인터넷 파일 폴더 비우기2  김영대 2004/08/11 5547 1451
499   [윈도우즈 API] 제어판의 화면배색정보를 프로그램에서 바꾸기  김영대 2003/03/05 5547 1650
498   [일반/컴포넌트] 절대경로와 상대경로 결합  김영대 2004/08/25 5545 1543
497   [COM/OLE] How to register an OCX  김영대 2003/03/06 5545 1284
496   [네트웍/인터넷] Read/Write to COM Port  김영대 2003/03/07 5544 1332
495   [윈도우즈 API] 화면의 Memo 가 보여줄 수 있는 라인수 알아내기  김영대 2003/03/05 5537 1418
494   [일반/컴포넌트] 디렉토리 검색하여 파일 찾기  김영대 2003/03/05 5536 1590
493   [데이터베이스] Paradox 테이블이 깨졌을때...  김영대 2003/03/05 5534 1306
492   [윈도우즈 API] 메모(TMemo)의 커서(캐럿)모양 바꾸기  김영대 2003/03/05 5532 2038

[이전 10개] [1]..[11] 12 [13][14][15][16][17][18][19][20]..[25] [다음 10개]
 

Copyright 1999-2024 Zeroboard / skin by zero