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

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


Category

  ±è¿µ´ë(2003-03-07 21:01:29, Hit : 5294, Vote : 1299
 Áñ°Üã±â Æú´õÀÇ ÆÄÀÏ¿¡¼­ 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 }





411   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî ¸Þ¸ðÀåÀÇ ÆíÁý³»¿ëÀ» °¡Á®¿À±â  ±è¿µ´ë 2003/03/07 4003 1095
410   [À©µµ¿ìÁî API] À©µµ¿ìÁî"½ÃÀÛ" ¹öư Disable/Enable  ±è¿µ´ë 2003/03/07 4549 1210
409   [À©µµ¿ìÁî API] TaskBarÀÇ ´Ù¾çÇÑ ±â´ÉÁ¦¾î  ±è¿µ´ë 2003/03/07 5256 3432
408   [½Ã½ºÅÛ] À©µµ¿ìÁî ÀüüÀÇ Å°º¸µå ÀÔ·Â ±ÝÁö  ±è¿µ´ë 2003/03/07 4582 1228
407   [µ¥ÀÌÅͺ£À̽º] SQL½ÇÇà½ÃÀÇ ¸ð·¡½Ã°è¸¦ Ç¥½ÃÇÏÁö ¾Ê´Â ¹æ¹ý  ±è¿µ´ë 2003/03/07 4670 1154
406   [À©µµ¿ìÁî API] Ä¿¼­(ÄÉ·µ)ÀÇ ±ô¹ÚÀÓ ¼Óµµ¸¦ º¯°æÇÏ±â  ±è¿µ´ë 2003/03/07 4822 1270
405   [µ¥ÀÌÅͺ£À̽º] µ¥ÀÌŸº£À̽º ·Î±×ÀÎ(login) È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4104 1030
404   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] °£´ÜÈ÷ È­¸é ÇϵåÄ«ÇÇ(snapshot) ÇÏ±â  ±è¿µ´ë 2003/03/07 4792 1149
403   [À©µµ¿ìÁî API] ½ºÅ©¸° ¼¼À̹öÀÇ ±âµ¿½Ã°£ ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4318 1309
402   [½Ã½ºÅÛ] Æú´õÀÇ º¯°æ¿©ºÎ¸¦ °¨½ÃÇÏ±â  ±è¿µ´ë 2003/03/07 5792 1285
401   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Àü°¢¹®ÀÚÀÎÁö ¹Ý°¢¹®ÀÚÀÎÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 6750 1261
400   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¹®ÀÚ¿­ÀÇ ¹ÙÀÌÆ®¼ö°¡ ¾Æ´Ñ ½ÇÁ¦ ±ÛÀÚ¼ö ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 5023 1142
399   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÀÓ½ÃÆÄÀϸí ÀÚµ¿À¸·Î »ý¼ºÇÏ±â  ±è¿µ´ë 2003/03/07 5218 1664
398   [µ¥ÀÌÅͺ£À̽º] DBGridÀÇ ¼öÁ÷À̵¿ ¸·´ë °¨Ãß±â  ±è¿µ´ë 2003/03/07 4827 1239
397   [½Ã½ºÅÛ] ÇÁ¸°ÅÍ ¸®½ºÆ®¸¦ ±¸ÇÏ¿© ±âº» ÇÁ¸°ÅÍ º¯°æÇÏ±â  ±è¿µ´ë 2003/03/07 13187 1294
396   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ŸÀÌÆ²¹Ù Ŭ¸¯½Ã »ç¿ëÀÚ ÆË¾÷¸Þ´º º¸ÀÌ±â  ±è¿µ´ë 2003/03/07 4901 1180
395   [À©µµ¿ìÁî API] ÆûÀ» ÃÖÇÏÀ§(?)·Î ¼³Á¤ÇÏ±â  ±è¿µ´ë 2003/03/07 4847 1277
394   [½Ã½ºÅÛ] ½Ã½ºÅÛ¿¡ µî·ÏµÈ ÇÑ±ÛÆùÆ®ÀÇ ¸®½ºÆ®  ±è¿µ´ë 2003/03/07 5265 1547
393   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] StringGrid ÀÇ BeginUpdate/EndUpdate ?  ±è¿µ´ë 2003/03/07 5475 1171
392   [À©µµ¿ìÁî API] ¹ÙÅÁÈ­¸é ¾ÆÀÌÄÜÀÇ ±ÛÀÚ»ö ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 5148 1300
391   [À©µµ¿ìÁî API] ½ºÅ©¸° ¼¼À̹ö ºñ¹Ð¹øÈ£ ¾Ë¾Æ³»±â  ±è¿µ´ë 2003/03/07 4892 1203
390   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏ¿¡¼­ ƯÁ¤ Byte ¸ðµÎ ã±â  ±è¿µ´ë 2003/03/07 4523 1156
389   [³×Æ®¿÷/ÀÎÅͳÝ] Network Adaptor °¡ ¿©·¯°³ÀÎ °æ¿ìÀÇ IP ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 6268 1569
388   [½Ã½ºÅÛ] ÇÁ¸°Æ® ½ºÇ®·¯ Á¦¾î¹æ¹ý  ±è¿µ´ë 2003/03/07 6590 1882
387   [À©µµ¿ìÁî API] ¹ÙÅÁÈ­¸é ¾ÆÀÌÄÜÀÇ ±ÛÀÚ»ö ¹Ù²Ù±â2  ±è¿µ´ë 2003/03/07 5202 1467
386   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] º£Áê(Bezier) °î¼± ±×¸®±â  ±è¿µ´ë 2003/03/07 4823 1439
385   [À©µµ¿ìÁî API] Á¤ÀǵÇÁö ¾ÊÀº Alt+Ű ÀԷ½à BeepÀ½ Á¦°Å  ±è¿µ´ë 2003/03/07 4376 1234
384   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ºÎȰÀý ´Þ°¿(easter egg) ¹®ÀÚ¿­ ÀÔ·Â¹Þ±â  ±è¿µ´ë 2003/03/07 4808 1158
383   [½Ã½ºÅÛ] Delphi VCL »ç¿ë¾ÈÇϰí ÇÁ·Î±×·¥ ¸¸µé±â  ±è¿µ´ë 2003/03/07 5288 1329
382   [À©µµ¿ìÁî API] CTRL+ALT+DEL ¿¡ ³ªÅ¸³ªÁö ¾Ê´Â ÇÁ·Î±×·¥  ±è¿µ´ë 2003/03/07 5172 1292
381   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] º£Áê(Bezier) °î¼± ±×¸®±â2  ±è¿µ´ë 2003/03/07 4866 1161
380   [½Ã½ºÅÛ] Űº¸µå ÀÚµ¿¹Ýº¹Áö¿¬ Àбâ/¼³Á¤  ±è¿µ´ë 2003/03/07 4677 1192
379   [½Ã½ºÅÛ] Űº¸µå ÀÚµ¿¹Ýº¹¼Óµµ Àбâ/¼³Á¤  ±è¿µ´ë 2003/03/07 5458 1492
378   [½Ã½ºÅÛ] À©µµ¿ìÁî ĸ¼ÇÀÇ ³ôÀÌ Àбâ/¼³Á¤  ±è¿µ´ë 2003/03/07 4455 1218
377   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ListView ÀÇ column header ¿À¸¥ÂÊ¿¡ À̹ÌÁö ³Ö±â  ±è¿µ´ë 2003/03/07 4981 1210
376   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Delphi 4 Secret Registry Settings  ±è¿µ´ë 2003/03/07 6443 1581
375   [µ¥ÀÌÅͺ£À̽º] Record Lock °Ë»ç  ±è¿µ´ë 2003/03/07 4303 1123
  [À©µµ¿ìÁî API] Áñ°Üã±â Æú´õÀÇ ÆÄÀÏ¿¡¼­ URL »Ì¾Æ³»±â  ±è¿µ´ë 2003/03/07 5294 1299
373   [½Ã½ºÅÛ] CD-ROMÀÇ º¯°æ¿©ºÎ¸¦ °¨½ÃÇÏ±â  ±è¿µ´ë 2003/03/07 5006 1309
372   [½Ã½ºÅÛ] Locking/ Unlocking floppy driver or CD  ±è¿µ´ë 2003/03/07 4298 1222

[ÀÌÀü 10°³] [1]..[11][12][13][14] 15 [16][17][18][19][20]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2022 Zeroboard / skin by zero