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

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


Category

  ±è¿µ´ë(2003-03-07 21:01:29, Hit : 5144, Vote : 1260
 Áñ°Üã±â Æú´õÀÇ ÆÄÀÏ¿¡¼­ URL »Ì¾Æ³»±â

function DUTStringToWideChar(const Source : string; Dest : PWideChar;
DestSize : Integer) : PWideChar;
{
   Fixes a number of problems with System.pas' StringToWideChar.
   This replacement function raises an exception if things go awry.
}
const
   MB_ERR_INVALID_CHARS = $00000008; //Missing from Windows.pas
var
   Code : Integer;
begin
   SetLastError(NO_ERROR);
   Code := MultiByteToWideChar(CP_ACP { ANSI code page },
MB_ERR_INVALID_CHARS, PChar(Source), Length(Source), Dest, DestSize -
1);
   if Code = 0 then
      raise Exception.CreateFmt('DUTStringToWideChar: "%s" (Error code
%d)', [SysErrorMessage(GetLastError), GetLastError]);
   Dest[Code] := #0;
   Result := Dest;
end; { DUTStringToWideChar }

function ResolveLink(LinkName : String) : String;
{
   Retrieves the long path name of the file
   pointed to by the LinkName LNK file.
   LinkName must be a fully qualified path and name.
   NOTE: ResolveLink will fail if the linked object isn't a file
   (links to My Computer, other networked Computers, virtual folders,
etc.)
}
var
   SL         : IShellLink;
   PF         : IPersistFile;
   WStr       : array[0..MAX_PATH] of WideChar;
   Str        : array[0..MAX_PATH] of Char;
   FindData   : TWin32FindData; { from Windows.pas }
begin
   { Get an interface pointer to the IShellLink interface }
   OLECheck(CoCreateInstance(CLSID_ShellLink, Nil, CLSCTX_INPROC_SERVER,
IID_IShellLinkA, SL));
   { Get an interface pointer to the IPersistFile interface of
IShellLink }
   OLECheck(SL.QueryInterface(IID_IPersistFile, PF));
   { Convert the link file pathname to a PWideChar }
   DUTStringToWideChar(LinkName, WStr, MAX_PATH);
   { Initialize the IShellLink object from its disk image }
   OLECheck(PF.Load(@WStr, STGM_READ or STGM_SHARE_DENY_NONE));
   { Obtain the linked path }
   OLECheck(SL.GetPath(@Str, MAX_PATH, FindData, SLGP_UNCPRIORITY));
   Result := String(Str);
end; { ResolveLink }

function ResolveLinkPIDL(LinkName : String) : PItemIDList;
{
   Retrieves the PIDL of the object pointed to by the LinkName LNK file.
   LinkName must be a fully qualified path and name.
   The calling application is responsible for freeing the PItemIDList
using
   the shell's task allocator [SHGetMalloc(ShellMalloc) ...
ShellMalloc.Free(PIDL)].
   NOTE: Contrary to ResolveLink, ResolveLinkPIDL will NOT fail if the
linked
   object isn't a file (links to My Computer, other networked Computers,
etc.)
}
var
   SL   : IShellLink;
   PF   : IPersistFile;
   WStr : array[0..MAX_PATH] of WideChar;
begin
   { Get an interface pointer to the IShellLink interface }
   OLECheck(CoCreateInstance(CLSID_ShellLink, Nil, CLSCTX_INPROC_SERVER,
IID_IShellLinkA, SL));
   { Get an interface pointer to the IPersistFile interface of
IShellLink }
   OLECheck(SL.QueryInterface(IID_IPersistFile, PF));
   { Convert the link file pathname to a PWideChar }
   DUTStringToWideChar(LinkName, WStr, MAX_PATH);
   { Initialize the IShellLink object from its disk image }
   OLECheck(PF.Load(@WStr, STGM_READ or STGM_SHARE_DENY_NONE));
   { Obtain the linked PIDL }
   OLECheck(SL.GetIDList(Result));
end; { ResolveLinkPIDL }





611   [À©µµ¿ìÁî API] DDE¸¦ »ç¿ëÇÏ¿© IE, NetscapeÀÇ ÇöÀç URL °¡Á®¿À±â  ±è¿µ´ë 2003/03/07 4569 1238
610   [À©µµ¿ìÁî API] µ¥½ºÅ©Å¾¿¡ ÀÖ´Â ¾ÆÀÌÄÜÀÇ °¹¼ö ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4180 1144
609   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] design mode ÀÎÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 5725 1463
608   [³×Æ®¿÷/ÀÎÅͳÝ] ÇÁ¸°ÅÍÀÇ ¿ëÁö Å©±â/°ø±Þ ¼³Á¤ÇÏ±â  ±è¿µ´ë 2003/03/07 6925 1272
607   [½Ã½ºÅÛ] ÇÁ¸°ÅÍÀÇ "¿ëÁö °ø±Þ" ¸®½ºÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4690 1351
606   [³×Æ®¿÷/ÀÎÅͳÝ] Read/Write to COM Port  ±è¿µ´ë 2003/03/07 4823 1143
605   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ButtonÀÇ Mouse Down/Up Èä³»³»±â  ±è¿µ´ë 2003/03/07 4357 1126
604   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] µÎ StringGrid ÀÇ scroll À» µ¿±âÈ­ ½ÃŰ±â  ±è¿µ´ë 2003/03/07 4407 1071
603   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÇØ»óµµ(screen resolution)¸¦ º¯°æÇß´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/07 4592 1298
602   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGridÀÇ ¼±ÅÃµÈ CellÀ» ¹öưÀ¸·Î º¸ÀÌ±â  ±è¿µ´ë 2003/03/07 4397 1091
601   [À©µµ¿ìÁî API] Windows NT µµ¸ÞÀÎ¸í °¡Á®¿À±â  ±è¿µ´ë 2003/03/07 5638 1486
600   [½Ã½ºÅÛ] Locking/ Unlocking floppy driver or CD  ±è¿µ´ë 2003/03/07 4186 1185
599   [½Ã½ºÅÛ] CD-ROMÀÇ º¯°æ¿©ºÎ¸¦ °¨½ÃÇÏ±â  ±è¿µ´ë 2003/03/07 4905 1277
  [À©µµ¿ìÁî API] Áñ°Üã±â Æú´õÀÇ ÆÄÀÏ¿¡¼­ URL »Ì¾Æ³»±â  ±è¿µ´ë 2003/03/07 5144 1260
597   [µ¥ÀÌÅͺ£À̽º] Record Lock °Ë»ç  ±è¿µ´ë 2003/03/07 4206 1092
596   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Delphi 4 Secret Registry Settings  ±è¿µ´ë 2003/03/07 6299 1547
595   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListView ÀÇ column header ¿À¸¥ÂÊ¿¡ À̹ÌÁö ³Ö±â  ±è¿µ´ë 2003/03/07 4845 1176
594   [½Ã½ºÅÛ] À©µµ¿ìÁî ĸ¼ÇÀÇ ³ôÀÌ Àбâ/¼³Á¤  ±è¿µ´ë 2003/03/07 4358 1186
593   [½Ã½ºÅÛ] Űº¸µå ÀÚµ¿¹Ýº¹¼Óµµ Àбâ/¼³Á¤  ±è¿µ´ë 2003/03/07 5352 1456
592   [½Ã½ºÅÛ] Űº¸µå ÀÚµ¿¹Ýº¹Áö¿¬ Àбâ/¼³Á¤  ±è¿µ´ë 2003/03/07 4567 1156
591   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] º£Áê(Bezier) °î¼± ±×¸®±â2  ±è¿µ´ë 2003/03/07 4681 1117
590   [À©µµ¿ìÁî API] CTRL+ALT+DEL ¿¡ ³ªÅ¸³ªÁö ¾Ê´Â ÇÁ·Î±×·¥  ±è¿µ´ë 2003/03/07 5023 1259
589   [½Ã½ºÅÛ] Delphi VCL »ç¿ë¾ÈÇϰí ÇÁ·Î±×·¥ ¸¸µé±â  ±è¿µ´ë 2003/03/07 5121 1264
588   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ºÎȰÀý ´Þ°¿(easter egg) ¹®ÀÚ¿­ ÀÔ·Â¹Þ±â  ±è¿µ´ë 2003/03/07 4635 1075
587   [À©µµ¿ìÁî API] Á¤ÀǵÇÁö ¾ÊÀº Alt+Ű ÀԷ½à BeepÀ½ Á¦°Å  ±è¿µ´ë 2003/03/07 4260 1189
586   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] º£Áê(Bezier) °î¼± ±×¸®±â  ±è¿µ´ë 2003/03/07 4713 1404
585   [À©µµ¿ìÁî API] ¹ÙÅÁÈ­¸é ¾ÆÀÌÄÜÀÇ ±ÛÀÚ»ö ¹Ù²Ù±â2  ±è¿µ´ë 2003/03/07 5080 1432
584   [½Ã½ºÅÛ] ÇÁ¸°Æ® ½ºÇ®·¯ Á¦¾î¹æ¹ý  ±è¿µ´ë 2003/03/07 6415 1809
583   [³×Æ®¿÷/ÀÎÅͳÝ] Network Adaptor °¡ ¿©·¯°³ÀÎ °æ¿ìÀÇ IP ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 6135 1528
582   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏ¿¡¼­ ƯÁ¤ Byte ¸ðµÎ ã±â  ±è¿µ´ë 2003/03/07 4415 1124
581   [À©µµ¿ìÁî API] ½ºÅ©¸° ¼¼À̹ö ºñ¹Ð¹øÈ£ ¾Ë¾Æ³»±â  ±è¿µ´ë 2003/03/07 4796 1171
580   [À©µµ¿ìÁî API] ¹ÙÅÁÈ­¸é ¾ÆÀÌÄÜÀÇ ±ÛÀÚ»ö ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 5046 1261
579   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGrid ÀÇ BeginUpdate/EndUpdate ?  ±è¿µ´ë 2003/03/07 5282 1138
578   [½Ã½ºÅÛ] ½Ã½ºÅÛ¿¡ µî·ÏµÈ ÇÑ±ÛÆùÆ®ÀÇ ¸®½ºÆ®  ±è¿µ´ë 2003/03/07 5120 1511
577   [À©µµ¿ìÁî API] ÆûÀ» ÃÖÇÏÀ§(?)·Î ¼³Á¤ÇÏ±â  ±è¿µ´ë 2003/03/07 4660 1241
576   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ŸÀÌÆ²¹Ù Ŭ¸¯½Ã »ç¿ëÀÚ ÆË¾÷¸Þ´º º¸ÀÌ±â  ±è¿µ´ë 2003/03/07 4773 1147
575   [½Ã½ºÅÛ] ÇÁ¸°ÅÍ ¸®½ºÆ®¸¦ ±¸ÇÏ¿© ±âº» ÇÁ¸°ÅÍ º¯°æÇÏ±â  ±è¿µ´ë 2003/03/07 5310 1244
574   [µ¥ÀÌÅͺ£À̽º] DBGridÀÇ ¼öÁ÷À̵¿ ¸·´ë °¨Ãß±â  ±è¿µ´ë 2003/03/07 4660 1204
573   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÀÓ½ÃÆÄÀϸí ÀÚµ¿À¸·Î »ý¼ºÇÏ±â  ±è¿µ´ë 2003/03/07 5124 1628
572   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ¹ÙÀÌÆ®¼ö°¡ ¾Æ´Ñ ½ÇÁ¦ ±ÛÀÚ¼ö ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4839 1105

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

Copyright 1999-2021 Zeroboard / skin by zero