ÎÒ·¢ÏÖ delphi ×Ö·û´®Ö¸ÕëÑÏÖØÎÊÌâ
ÔÚDELPHI ÖУ¬Ò»°ãÓÃ'@+±äÁ¿Ãû¡¯µÄÐÎʽ£¬¾Í¿ÉÒÔ»ñµÃ¸Ã±äÁ¿µÄÊ×µØÖ·£¬Èç:
var
int: integer;
pi: ^integer;
begin
int := 100;
pi := @int;
end;
ÓÃÀàËÆÉÏÊöµÄ·½·¨£¬ÕûÐÍ¡¢¸¡µãÐÍ¡¢×Ö·ûÐÍ¡¢Ò»Î¬Êý×飬¶þάÊý×é¶¼Äܵõ½ÕýÈ·µÄ½á¹û£¬
µ«ÊÇ£¬Èç¹ûÊÇ×Ö·û´®£¬Ôò½á¹û´íÎó£¡
±ÈÈ磺
var
str, s: string;
pstr: ^char;
begin
s:='';
str :='abdeFGg AAA$#! 123'#0;
pstr := @str;
while p^ <> #0 do
begin
s := s +p^;
inc(p);
end;
form1.caption := s;
end;
¸Ã³ÌÐò±éÀú×Ö·û´®Ê±£¬Ôò²»ÄÜÕýÈ·µÃ³ö½á¹û£¬µ«Èç¹û°Ñ pstr := @str; ¸ÄΪ pstr := @str[1]; Ôò¿ÉÒÔ£¬
Õâ˵Ã÷DELPHI ÔÚÖ¸ÕëʹÓÃÉÏ£¬±È½Ï»ìÂÒ£¬Ã»ÓÐÑϸñͳһµÄ¶¨Ò壬¼ÈÈ»Êý×é¶¼¿ÉÒÔ'@+±äÁ¿Ãû'ÐÎʽ£¬ÎªºÎµ¥¶À×Ö·û´®¾Í²»ÄÜÓÃ
'@+±äÁ¿Ãû'ÄØ£¿·ÇµÃÒªÖ¸¶¨µÚһϱêÄØ£¿ÕâÑù·Ç³£ÈÝÒ×Ôì³ÉʹÓôíÎóºÍÀ§»ó¡£
ËùÒÔ£¬ÎÒ¾õµÃ£¬OBJECT PASCAL Ó¦¸ÃÑϸñͳһָÕëµÄʹÓö¨Ò壡ÒÔÃâÔì³ÉʹÓÃÕßµÄÀ§»ó²»½â¡£
string±¾À´¾ÍÊÇÌØÊâµÄ»úÖÆÊµÏֵģ¬
¼òµ¥µÄÊÇ ³¤¶È+ʵ¼Ê×Ö·û´®
¸´ÔÓµÄÊÇ ÒýÓÃÊý+³¤¶È+ʵ¼Ê×Ö·û´®
²»
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......