::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã À̰÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-07 21:51:45, Hit : 4219, Vote : 1172
 À©µµ¿ìÁî "½ÃÀÛ" ¸Þ´ºÀÇ ±×¸² ¹Ù²Ù±â

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  StartButton : hWnd;
  OldBitmap   : THandle;
  NewImage : TPicture;

implementation
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  NewImage := TPicture.create;
  NewImage.LoadFromFile('Tech16.bmp');
  StartButton := FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                              0,
                              'Button',
                              nil);
  OldBitmap := SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SendMessage(StartButton, BM_SetImage, 0, OldBitmap);
  NewImage.Free;
end;

end.


(* ¾Æ·¡´Â ½ÃÀÛ ¸Þ´º¿¡ ±ÛÀÚ¾²±âÀε¥ Àß ¾ÈµÊ
procedure TForm1.Button1Click(Sender: TObject);
var
  StartButton : hWnd;
  MyRect      : TRect;
  MyCanvas    : TCanvas;
begin
  { get the startbutton handle }
  { Obtenemos el handle al boton de Inicio}
  StartButton := FindWindowEx(FindWindow(
                                'Shell_TrayWnd',
                                nil),
                              0,
                              'Button',
                              nil);
  MyCanvas := TCanvas.Create;
  try
    MyCanvas.Handle := GetWindowDC(StartButton);

    { set canvas font and brush }
    MyCanvas.Brush.Color := clRed;
    MyCanvas.Font.Name   := 'Arial';
    MyCanvas.Font.Size   := 10;
    MyCanvas.Font.Color  := clYellow;
    MyCanvas.Font.Style  := [fsItalic, fsBold];

    { get startbutton clientrect }
    Windows.GetClientRect(StartButton,MyRect);

    { over write the startbutton }
    { Sobreescribe el boton inicio }
    MyCanvas.FillRect(MyRect);

    { add your text to the startbutton }
    { A?dimos un texto al boton }
    Windows.DrawText(MyCanvas.Handle,
                     'HOLA',
                     -1,
                     MyRect,
                     DT_CENTER or
                     DT_VCENTER or
                     DT_SINGLELINE);

    { give the button the appearance of a button }
    { Damos al canvas la apariencia de un boton }
    DrawEdge(MyCanvas.Handle,
             MyRect,
             EDGE_RAISED,
             BF_RECT);
  finally
    { free the created DC }
    {libera el DC creado}
    ReleaseDC(StartButton,
              MyCanvas.Handle);

    { free the temp canvas }
    {Liberamoa el canvas temporal}
    MyCanvas.Free;
  end;
  LockWindowUpdate(StartButton);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  LockWindowUpdate(0);
end;
*)





651   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBox, ComboBox¿¡ ±ÙÁ¢°Ë»ö ÇÏ±â  ±è¿µ´ë 2003/03/07 5280 1566
650   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGridÀÇ Áß°£¿¡ Á¦¸ñ Cell µÎ±â  ±è¿µ´ë 2003/03/07 5278 1332
649   [µ¥ÀÌÅͺ£À̽º] ¸î°¡Áö BDE ȯ°æÁ¤º¸ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4215 1117
648   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼öÁ÷ ½ºÅ©·ÑÀÌ ¸Ç¸¶Áö¸·À¸·Î À̵¿Çß´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/07 3790 1108
647   [µ¥ÀÌÅͺ£À̽º] Query.RecordCount = -1  ±è¿µ´ë 2003/03/07 4621 1121
646   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Bitmap(BMP) Å©±â¸¦ º¯°æ(Stretch)ÇÏ¿© ÀúÀåÇÏ±â  ±è¿µ´ë 2003/03/07 4755 1239
645   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¸ðµç µå¶óÀ̺ê,µð·ºÅ丮 °Ë»öÇÏ¿© ÆÄÀÏ Ã£±â  ±è¿µ´ë 2003/03/07 4521 1128
644   [³×Æ®¿÷/ÀÎÅͳÝ] NT ³×Æ®¿öÅ© ȯ°æÀÇ ÄÄÇ»ÅÍ ¸®½ºÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 6829 1697
643   [À©µµ¿ìÁî API] À©µµ¿ìÁî¿¡ ÇÁ·Î±×·¥À¸·Î ÆùÆ® µî·ÏÇÏ±â  ±è¿µ´ë 2003/03/07 5271 1433
642   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TEdit ÀÔ·ÂÀÌ ÃÖ´ë ±æÀ̸¦ ¹ù¾î³ª¸é focus À̵¿  ±è¿µ´ë 2003/03/07 4250 1086
641   [µ¥ÀÌÅͺ£À̽º] dBase Å×À̺íÀÇ »èÁ¦µÈ ·¹ÄÚµå º¸±â  ±è¿µ´ë 2003/03/07 3959 1062
  [À©µµ¿ìÁî API] À©µµ¿ìÁî "½ÃÀÛ" ¸Þ´ºÀÇ ±×¸² ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4219 1172
639   [À©µµ¿ìÁî API] ¿øµµ¿ì À̵¿½Ã ´Ù½Ã ±×¸®±â ¼³Á¤/ÇØÁ¦  ±è¿µ´ë 2003/03/07 4343 1168
638   [À©µµ¿ìÁî API] Windows error beep Äѱâ/²ô±â  ±è¿µ´ë 2003/03/07 4436 1265
637   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Åõ¸íÇÑ(Transparent) TPanel ÄÞÆ÷³ÍÆ®  ±è¿µ´ë 2003/03/07 4876 1141
636   [µ¥ÀÌÅͺ£À̽º] Å×À̺í,À妽º º¹»çÇÏ±â  ±è¿µ´ë 2003/03/07 3890 1100
635   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ¿¡ À­Ã·ÀÚ, ¾Æ·§Ã·ÀÚ ¸¸µé±â  ±è¿µ´ë 2003/03/07 4325 1119
634   [À©µµ¿ìÁî API] ¿ÜºÎ ÇÁ·Î±×·¥ÀÇ Å©±â¸¦ ³» ÇÁ·Î±×·¥¿¡¼­ º¯°æÇÏ±â  ±è¿µ´ë 2003/03/07 4403 1155
633   [À©µµ¿ìÁî API] Ctrl-Esc, Ctrl-Alt-Del, Alt-Tab ÀÔ·Â ¸·±â  ±è¿µ´ë 2003/03/07 5528 1227
632   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ´Þ·Â¿¡ ±×¸²À̳ª ±âÈ£ ±×¸®±â  ±è¿µ´ë 2003/03/07 4227 1000
631   [À©µµ¿ìÁî API] ÆÄÀÏÀÇ À̵¿,º¹»ç,»èÁ¦ API  ±è¿µ´ë 2003/03/07 6382 1541
630   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TPanel, TImage ¿¡ Gradient È¿°ú ÁÖ±â  ±è¿µ´ë 2003/03/07 4352 1265
629   [½Ã½ºÅÛ] System, User, GDI Resource  ±è¿µ´ë 2003/03/07 4591 1334
628   [½Ã½ºÅÛ] PC¿¡ ¼³Ä¡µÈ µå¶óÀÌºê ¸ñ·Ï ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4536 1111
627   [À©µµ¿ìÁî API] PrintScreen(PrtSc)ŰÀÇ µ¿ÀÛ ¸·±â  ±è¿µ´ë 2003/03/07 5719 1281
626   [½Ã½ºÅÛ] Ç÷ÎÇÇ(floppy) µð½ºÅ© µå¶óÀ̺êÀÇ Å¸ÀÔ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 5835 1529
625   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ ÇÁ·Î½ÃÀú¸íÀ¸·Î ½ÇÁ¦ ÇÁ·Î½ÃÀú È£ÃâÇÏ±â  ±è¿µ´ë 2003/03/07 4857 1533
624   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGrid ¼öÁ÷ ½ºÅ©·Ñ¹ÙÀÇ Å©±â¸¦ ÀÓÀÇ·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4969 1068
623   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] JPEG, Bitmap »óÈ£ º¯È¯ÇÏ¿© ÆÄÀÏ·Î ÀúÀåÇÏ±â  ±è¿µ´ë 2003/03/07 4186 1207
622   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Access Violation at address ?????? ·ÎºÎÅÍ ¼Ò½ºÀ§Ä¡ ¾Ë±â  ±è¿µ´ë 2003/03/07 6431 1283
621   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] °¢µµ¿¡ µû¶ó ȸÀüÇÑ È­»ìÇ¥ ±×¸®±â  ±è¿µ´ë 2003/03/07 4270 1084
620   [À©µµ¿ìÁî API] ÀÛ¾÷Ç¥½ÃÁÙÀÇ "Ç×»ó À§" °Ë»çÇÏ¿© ¼³Á¤ÇÏ±â  ±è¿µ´ë 2003/03/07 4629 1183
619   [À©µµ¿ìÁî API] À©µµ¿ìÁî Ž»ö±â¿¡¼­ "Copy" µÉ ÆÄÀϸñ·Ï ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4866 1285
618   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TStringGridÀÇ ¸¶¿ì½º°¡ ÀÖ´Â CellÀÇ Hint Ç¥½Ã  ±è¿µ´ë 2003/03/07 6463 1670
617   [À©µµ¿ìÁî API] À©µµ¿ìÁî "½ÃÀÛ" ¸Þ´º Ç¥½ÃÇϱâ/°¨Ãß±â  ±è¿µ´ë 2003/03/07 4373 1163
616   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListBoxÀÇ ItemÀ» ¹öưÀ¸·Î °è¼Ó »èÁ¦ÇÏ±â  ±è¿µ´ë 2003/03/07 3940 1082
615   [À©µµ¿ìÁî API] À©µµ¿ìÁîÀÇ ÁÖ¼Ò·Ï(WAB) ÇÁ·Î±×·¥ ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 5336 1714
614   [À©µµ¿ìÁî API] ´Ù¸¥ ÇÁ·Î±×·¥ÀÇ ±¸µ¿ µð·ºÅ丮 ¾Ë¾Æ³»±â  ±è¿µ´ë 2003/03/07 4769 1286
613   [À©µµ¿ìÁî API] À©µµ¿ìÁî ÀüÈ­°É±â È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4481 1196
612   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] RichEdit¿¡¼­ HTML ű׸¦ ´Ù¸¥»öÀ¸·Î Ç¥½ÃÇÏ±â  ±è¿µ´ë 2003/03/07 5352 1191

[1][2][3][4][5][6][7][8] 9 [10]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2019 Zeroboard / skin by zero