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

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


Category

  김영대(2003-03-07 20:13:26, Hit : 5239, Vote : 1260
 바탕화면, 시작메뉴 icon 숨기기

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    FSysClasses : array [0 .. 3] of PChar;
    { Private declarations }
  public
    { Public declarations }
  end;

const
  iTRAYBAR = 1;
  iDESKTOPICONS = 2;
  iPROGMAN = 3;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//바탕화면 아이콘 숨기기
procedure TForm1.Button1Click(Sender: TObject);
var
wnd:Thandle;
begin

  Wnd := FindWindow(FSysClasses[iPROGMAN], nil);
  Wnd := FindWindowEx(Wnd, HWND(0), FSysClasses[iDESKTOPICONS], nil);

  if Wnd <> 0 then
  begin
      ShowWindow(Wnd, SW_HIDE);
  end;
end;

//바탕 화면 아이콘 보여주기
procedure TForm1.Button2Click(Sender: TObject);
var
wnd:Thandle;
begin

   Wnd := FindWindow(FSysClasses[iPROGMAN], nil);
   Wnd := FindWindowEx(Wnd, HWND(0), FSysClasses[iDESKTOPICONS], nil);

  if Wnd <> 0 then
  begin
    ShowWindow(Wnd, SW_SHOW);
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FSysClasses[iTRAYBAR] := 'Shell_TrayWnd';
   FSysClasses[iDESKTOPICONS] := 'ShellDll_DefView';
   FSysClasses[iPROGMAN] := 'Progman';
end;

//작업 표시줄 숨기기
procedure TForm1.Button3Click(Sender: TObject);
var
wnd:Thandle;
begin
   Wnd := FindWindow(FSysClasses[iTRAYBAR], nil);


  if Wnd <> 0 then
  begin
    ShowWindow(Wnd, SW_HIDE);
  end;

end;

// 작업 표시줄 보여주기
procedure TForm1.Button4Click(Sender: TObject);
var
wnd:Thandle;
begin
   Wnd := FindWindow(FSysClasses[iTRAYBAR], nil);


  if Wnd <> 0 then
  begin
    ShowWindow(Wnd, SW_SHOW);
  end;

end;

end.





571   [일반/컴포넌트] Memo의 행의 문자수를 제한하고 WordWrap시키기  김영대 2003/03/06 5347 1320
570   [데이터베이스] index file의 갯수와 성능 문제  김영대 2003/03/17 5341 1382
569   [네트웍/인터넷] 네트워크의 컴퓨터 이름,작업 그룹,컴퓨터 설명  김영대 2003/03/06 5340 1194
568   [시스템] 윈도우즈 화면 잠그기  김영대 2004/08/03 5337 1350
567   [일반/컴포넌트] 투명한(Transparent) TPanel 콤포넌트  김영대 2003/03/07 5331 1311
566   [시스템] DOS 명령어 실행하고 결과 받아오기  김영대 2003/03/27 5328 1301
565   [알고리즘] 두 문자열의 유사도 검사하기  김영대 2004/09/04 5324 1188
564   [윈도우즈 API] 바탕화면 아이콘의 글자색 바꾸기2  김영대 2003/03/07 5324 1490
563   [윈도우즈 API] "임시 인터넷 파일" 전부 지우기  김영대 2003/03/26 5323 1262
562   [데이터베이스] DB에 저장된 JPEG(JPG)를 DBGrid에 출력하기  김영대 2003/03/06 5319 1263
561   [시스템] 윈도우즈의 "국가별 설정" 읽어오기  김영대 2003/03/06 5318 1580
560   [윈도우즈 API] 네트워크 환경의 "컴퓨터 찾아보기" 화면 띄우기  김영대 2003/04/01 5312 1223
559   [데이터베이스] DBGrid 의 현재 커서의 행/열 구하기  김영대 2003/03/26 5310 1280
558   [일반/컴포넌트] 9가지 파일정보  김영대 2003/03/05 5308 1320
557   [일반/컴포넌트] 컴포넌트에 동적으로 이벤트 할당하기  김영대 2004/10/08 5304 1203
556   [윈도우즈 API] 세로 타이틀바 만들기  김영대 2004/08/04 5303 1411
555   [윈도우즈 API] 콤포넌트의 Hint 에 그림(Bitmap) 넣기  김영대 2003/04/11 5302 1367
554   [데이터베이스] DB에서 자음(ㄱ,ㄴ,ㄷ....)으로 SELECT 하기  김영대 2003/03/12 5298 1242
553   [일반/컴포넌트] ListBox에 Edit 올려 항목 편집하기  김영대 2006/02/28 5290 1332
552   [시스템] NTFS 파일 시스템 사용 여부  김영대 2004/08/25 5288 1379
551   [일반/컴포넌트] TObject의 프로퍼티를 문자열로 참조하기  김영대 2003/03/06 5284 1603
550   [일반/컴포넌트] 임시파일명 자동으로 생성하기  김영대 2003/03/07 5283 1675
549   [윈도우즈 API] CTRL+ALT+DEL 에 나타나지 않는 프로그램  김영대 2003/03/07 5281 1308
548   [시스템] 디스크의 남은 용량 등등...  김영대 2003/03/05 5279 1433
547   [윈도우즈 API] bitmap을 JPEG로 변환  김영대 2003/03/04 5272 1407
546   [알고리즘] 구분자(delimiter)를 사용한 문자열 파싱(parsing)  김영대 2003/11/13 5269 1156
545   [일반/컴포넌트] INF 파일 설치하기  김영대 2003/03/26 5269 1296
544   [시스템] 어떤 어플리케이션이 시작 되는지 hook으로 알아내기  김영대 2003/03/07 5269 1567
543   [일반/컴포넌트] 텍스트 파일 합치기(Merging)  김영대 2003/03/07 5256 1153
542   [데이터베이스] Stored Procedure 작성을 어떻게 하나  김영대 2003/03/04 5245 1356
541   [윈도우즈 API] 폼의 최대/최소화 막기  김영대 2003/03/06 5241 1398
540   [일반/컴포넌트] MS-OutLook 으로 메시지 보내기  김영대 2003/03/07 5240 1184
  [윈도우즈 API] 바탕화면, 시작메뉴 icon 숨기기  김영대 2003/03/07 5239 1260
538   [데이터베이스] Query.RecordCount = -1  김영대 2003/03/07 5238 1209
537   [윈도우즈 API] 바탕화면 아이콘의 글자색 바꾸기  김영대 2003/03/07 5238 1307
536   [네트웍/인터넷] 스팸(spam) IP 인지 검사하기  김영대 2004/08/17 5237 1301
535   [일반/컴포넌트] 절대경로와 상대경로 결합  김영대 2004/08/25 5234 1446
534   [윈도우즈 API] 날짜변형에 대해서...  김영대 2003/03/04 5227 1295
533   [윈도우즈 API] bitmap 인쇄하기  김영대 2003/03/05 5223 1332
532   [일반/컴포넌트] 객체의 valid검사 Assigned() 대체  김영대 2005/07/29 5222 1359

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

Copyright 1999-2023 Zeroboard / skin by zero