Delphi Òþ²Ø´°¿Ú±íµ¥
ÎÒÒ»¿ªÊ¼ÒÔΪ£¬½«±íµ¥ÉèÖÃΪÒþ²Ø£¬¿ÉÒÔÔÚ±íµ¥´´½¨Ê¼þÖм´FormCreate(Sender:TObject)È¥ÉèÖÃ
Òò´Ë£¬ ÎÒÔÚÕâ¸öprocedure TForm.FormCreate(Sender:TObject)ÖУ¬
ÏëÓÃÒ»ÏÂÁ½ÖÖ·½Ê½ÊµÏÖ
¼´£º
µ÷ÓÃ from.Hide
»òÉèÖÃ form.Visible:=false;
È»¶ø£¬ ÁîÈ˾ÚÉ¥µÄÊÇ£¬´°¿Ú±íµ¥»¹ÊÇÏÔʾµÄ£¬Ò»µã±ä»¯¶¼Ã»ÓУ¬
¸üÁîÈ˾ÚÉ¥·¢¿ñµÄÊÇ£¬ÍøÉϲé×ÊÁÏ£¬¶¼ËµÕâôÉèÖþͿÉÒÔ
˹³ÏÍ´ÔÕ
ÔÚ²é×ÊÁÏ
ÖÕÓÚÖªµÀÁËÎÊÌâËùÔÚ£º>
ÔÀ´£¬ ÔÚFormCreateʼþÖÐÉèÖÿɼûÐÔÊÇÎÞЧµÄ£¬±ØÐëÁíдһ¸öʼþ£¬±ÈÈ簴ťʼþ£¬ÔÚÕâ¸öʼþÀÔÙÉèÖÃHide»òvisible ¾Í¿ÉÒÔÁË
¹À¼ÆÔÒò£º
FormCreate ÊÇ¶Ô±íµ¥¸÷Ïî½øÐгõʼ»¯£¬´Ëʱ±íµ¥»¹Î´½¨Á¢£¬ËùÒÔ»¹²»ÄÜ¶Ô±íµ¥ÊôÐÔ½øÐÐÉèÖã¨ËäÈ»±àÒëÆ÷²»Ìáʾ´íÎóÐÅÏ¢£©
Ïà¹ØÎĵµ£º
Delphi¿½±´Ä¿Â¼(º¬×ÓĿ¼)µÄ·½·¨
ҪʵÏÖĿ¼¼¶µÄ¿½±´£¬¿ÉÒÔÀûÓÃWindows APIº¯ÊýShFileOperation( )£¬Æ亯ÊýÉùÃ÷ÈçÏ£º
WINSHELLAPI int WINAPI SHFileOperation(
LPSHFILEOPSTRUCT lpFileOp
);
ʵÀý£º
н¨Ò»¸ö¹¤³Ì£¬Æä³ÌÐòʾÀýÈçÏ£º
unit Unit1;
interface
uses
Windows, Messag ......
ÔÚDelphiÓ¦ÓóÌÐòÖÐʹÓÃDLL
¡¡¡¡Delphi²»½ö¿Éµ÷ÓÃC£«£«²úÉúµÄDLLÄ£¿é£¬Í¬ÑùC£«£«³ÌÐòÒ²¿Éµ÷ÓÃDelphiËù²úÉúµÄDLL²¿¼þ¡£ÕâÑù½»»¥µ÷Óã¬ÎÞÐëÖظ´¿ª·¢£¬´ó´óËõ¶ÌÁËÉú²úÖÜÆÚ¡£
¡¡¡¡DelphiÓëVisualBasic¡¢VisualFoxProµÈÈí¼þÒ»Ñù£¬ÊôÓÚRAD¹¤¾ß£¨¿ìËÙÓ¦Óÿª·¢¹¤¾ß£©¡£ÊʺϿª·¢32λ»ò16λ£¯32λ»ìºÏÓ¦ÓóÌÐò¡£DelphiËùÊ¹Ó ......
Client:TSocketConnection ºÍServer: Scktsrvr¹Øϵ----ѹËõÊý¾Ý´«Êä
Ò»Ö±ÓÃSocketConnectionºÍ·þÎñ¶ËµÄ´«ÊäÊý¾ÝÔÚÈý²ãÊý¾Ý¿âÖУ¬´ÓÀ´Ã»ÓÐ×¢Òâµ½ËüÃÇÖ®¼äµÄÊý¾Ý´«Ê䣬ֻÊÇÏë×Å£¬¹ÜËüÁË£¬ÍøÂçµÄÊ£¬Ç°¶Îʱ¼äÔÚDelphiÖеÄDemosÖз¢ÏÖDemos\Midas\Intrcpt.dprÀý×Ó£¬ºÇºÇ£¬ÔÙ¿´ÁË°ëÌìµÄVCL·¢ÏÖ¿ÉÒÔ½«Client¶Ë·¢Ë͵ĸøServerµÄÊ ......
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ½PChar
......