delphi ¿Ø¼þ°²×°
ÓÉÓÚ×é¼þÌṩµÄ·½Ê½²»Í¬£¬ËùÒÔ°²×°µÄ·½·¨Ò²ÊDz»Ò»ÑùµÄ£¬ÏÂÃæ¾ÍĿǰ³£¼ûµÄ¸÷ÖÖÐÎʽµÄ×é¼þµÄ°²×°·½·¨½éÉÜһϡ£
1¡¢Ö»ÓÐÒ»¸ödcuÎļþµÄ×é¼þ¡£dcuÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏdelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©delphi°æ±¾Éý¼¶£¬´Ë×é¼þ¾Í²»ÄÜÔÙʹÓÃÁË£¬µ±È»ÓеÄ×÷Õ߸ø³öÁ˼¸ÖÖ°æ±¾µÄdcuÎļþ£¬Óû§¸ù¾ÝÐèҪѡÔñʹÓá£ÕâÑùµÄ×é¼þµÄ°²×°·½·¨ÊÇ£ºÔÚcomponent²Ëµ¥ÖУ¬Ñ¡Ôñinstall component£¬ÔÚ¶Ô»°¿òÖеÄ"into existing package"Ò³ÖУ¬µ¥»÷“unit file name”ºóµÄ“browse”°´Å¥£¬ÔÚ´ò¿ªµÄÎļþ¶Ô»°¿òÖУ¬½«“ÎļþÀàÐÍ”É趨Ϊ*.dcu£¬ÕÒµ½Òª°²×°µÄdcuÎļþ£¬°´ok°´Å¥·µ»Ø"into existing package"Ò³ºóÔÙ°´ok°´Å¥¾Í¿ÉÒÔ°²×°ÁË¡£×¢Ò⣬´Ëʱdelphi»áÌáʾdclusr40.dpk½«±»Öؽ¨£¬ÊÇ·ñ¼ÌÐø£¬ok¾Í¿ÉÒÔÁË¡£ÕâÀïÊǽ«×é¼þ°²×°µ½dclusr40.dpk°üÖУ¬´Ë°ü´ÓÎļþÃûÉÏ¿ÉÒÔ¿´³öÊÇÓû§×Ô¶¨Òå×é¼þ°ü£¬ÏȰ²×°µ½Õâ¸ö°üÖаɣ¬ÏÂÃæÔÙ½²ÓйØ×¢ÒâÊÂÏî¡£°²×°Íê±Ï»áÓÐÒѾ½«×é¼þ×¢²áÍêµÄÌáʾÐÅÏ¢ÒÔ¼°°²×°µ½Äĸö×é¼þÒ³ÖеÄÐÅÏ¢µÈ£¬µ½
×é¼þÃæ°åÉÏ¿´¿´£¬Ò»°ã»á³öÏÖÒ»¸öеÄ×é¼þÒ³£¬ÆäÖÐÓиհ²×°µÄ×é¼þ¡£
2¡¢Ö»ÓÐ pasÎļþ»ò¼ÈÓÐpasÓÖÓÐdcuÎļþµÄ×é¼þ¡£ÕâÖÖ×é¼þÒòΪÓÐpasÎļþ£¬Ò²¾ÍÊÇ˵×÷ÕßÌṩÁËÔ´Â룬Õâ¾ÍºÃ°ì¶àÁË¡£°²×°µÄ·½·¨ºÍÉÏÃæÊÇÒ»ÑùµÄ£¬ÔÚÎļþÀàÐÍÖпÉÒÔÉ趨ΪdcuÒ²¿ÉÒÔÉ趨Ϊpas£¬½¨ÒéÉ趨Ϊpas£¬ÕâÑù¿ÉÓÃÄãµÄdelphiÖØÐ±àÒëһϣ¬¿´ÊÇ·ñ»á³öÏÖÎÊÌâ¡£delphiÉý¼¶ºóÖ»ÄÜÑ¡Ôñpas Îļþ°²×°£¬ÕâÑù²ÅÄÜÖØÐ±àÒ룬ʹµÃ×é¼þÄÜÊÊÓ¦ÐÂdelphi°æ±¾¡£ÕâÑùµÄ×é¼þÊǺÜÖµµÃʹÓõ쬏ù¾ÝÐÄÁåµÄ¾Ñ飬ûÓÐÔ´ÂëµÄ×é¼þ×îºÃ²»ÒªÊ¹Óã¬Ò»ÊÇ´æÔÚ delphi°æ±¾Éý¼¶ºóÎÞ·¨Ê¹ÓõÄÎÊÌ⣬ÔÙÕßµ±³ÌÐò³öÏÖÎÊÌâºóÓû§ÎÞ·¨µ÷ÊÔ×é¼þÀ´ÅжÏÊÇ·ñÊÇ×é¼þÖдæÔÚbug¡£
3¡¢ÓÐdpkÎļþµÄ×é¼þ°ü¡£´øÓÐdpkÎļþµÄ×é¼þ°üÒ»°ãÊÇÓжà¸ö×é¼þ¹¹³ÉµÄ£¬Ò²¾ÍÊÇ˵°²×°ºó»áÓжà¸ö×é¼þ¹©Ê¹Óã¬Èç¹ûÖ»ÓÐÒ»¸ö×é¼þ×÷ÕßÒ»°ã²»»áÖÆ³ÉdpkÎļþ£¬Ê¹ÓÃÉÏÃæµÄ·½Ê½·¢²¼¾Í¿ÉÒÔÁË¡£¶ÔÓÚÕâÑùµÄ×é¼þ°ü£¬Ò»°ãÀ´Ëµ»áÓÐÏêϸµÄ°²×°ËµÃ÷Îļþ£¬ÈçÉÏÃæÌáµ½µÄrxlib£¬ÓÉÓÚ×é¼þ¸´ÔÓÇÒ°²×°Ê±ÓÐÏȺó˳Ðò£¬×÷Õß²»Ìṩ°²×°ËµÃ÷Óû§¸ù±¾ÎÞ·¨ÕýÈ·°²×°¡£Èç¹ûûÓа²×°ËµÃ÷Îļþ£¬ÄÇôÓÃÏÂÃæµÄ·½·¨°²×°£ºÔÚfile²Ëµ¥Ï£¬Ñ¡Ôñ”open…”´ò¿ªdpkÎļþ(ÎļþÀàÐÍÁбí¿òÖÐÑ¡*.dpk)£¬ÔÚ³öÏÖµÄpack
Ïà¹ØÎĵµ£º
Ò»¡¢Dll½¨Á¢
£¨Ò»£©DLLÏîÄ¿µÄ½¨Á¢
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
£¨¶þ£©º¯Êýµ¥Ôª
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
  ......
delphi±£´æ¶ÁÈ¡utf-8µÄÎı¾Îļþ
¸ø¿Í»§×öÁËÒ»¸öÅúÁ¿Ê¶±ðͼÏñ²¢ºÏ³ÉË«²ãpdfµÄ³ÌÐò£¬×îºó¿Í»§ÐèÒªÉú³ÉµÄͬʱ¸½´øÒ»·Ý¼Çʱ¾Îļþ£¬¾ÍÊÇOCR¹ýºóµÄÎı¾£¬²¢Ö¸¶¨utf-8¸ñʽµÄ¡£ÔÚ´¦Àíutf-8ʱ³öÏÖÁ˵ãСÎÊÌ⣬ÏÖÔÚ×ܽáÈçÏÂ
Ê×ÏÈ ÀûÓÃdelphi×Ô´øµÄUTF8Encodeº¯Êý£¬½«ÆÕͨ×Ö·ûת»»Îªutf-8±àÂë
´´½¨Ò»¸öÁ÷£¬MemoryStream»òFileStr ......
±¾ÎÄ×ªÔØ:http://rabbitfox.blog.sohu.com/29948084.html
http://delphi.about.com/od/fileio/a/fileof_delphi.htm
Ê×ÏÈÏò×÷Õß±íʾ¸Ðл£¡
¡¶ÀûÓÃDelphiµÄ“File Of
Type”´´½¨²¢¹ÜÀíÊôÓÚÄã×Ô¼ºµÄ“Êý¾Ý¿â”¡·
Ô×÷Õߣ ......
//ÉùÃ÷:
GetClassName(
hWnd: HWND; {Ö¸¶¨´°¿Ú¾ä±ú}
lpClassName: PChar; {»º³åÇø}
nMaxCount: Integer {»º³åÇø´óС}
): Integer; {·µ»ØÀàÃû´óС; ʧ°Ü·µ»Ø 0}
//²âÊÔ1: н¨Ò»¸ö¹¤³Ì, Ö÷´°¿ÚµÄÀàÃûĬÈÏÊÇ TForm1, ÓóÌÐò»ñȡһÏ¿´¿´
var
ps: array[0..254] of Char;
begin
GetCl ......
Delphi Äܲ»ÄÜ´ÓRing 3½øÈëRing 0?
Â¥Ö÷skyworld_xm£¨skyworld£©2004-11-19 09:58:55 ÔÚ Delphi / Windows SDK/API ÌáÎÊ
Delphi Äܲ»ÄÜ´ÓRing 3½øÈëRing 0?
ÓÐÀý×ÓÂð?
¶àл. ÎÊÌâµãÊý£º100¡¢»Ø¸´´ÎÊý£º20Top
1 Â¥jinjazz£¨½üÉí¼ô£©»Ø¸´ÓÚ 2004-11-19 10:13:27 µÃ ......