Delphi´°Ìåµ½µ×ÈçºÎ²ÅÄÜÒþ²Ø£¿
ÔÚÍøÉÏËÑÁ˺ܶ෽·¨£¬¸Ð¾õ¶¼²»ºÃÓá£
ÓÐ˵ÓÃForm1.HideµÄ£¬µ«ÊÇÎÒ·¢ÏÖÕâ¸ö¸ù±¾Ã»Óá£
ÓÐ˵ÓÃshowwindow(application.handle,sw_hide); µÄ£¬Ò²²»ÐС£
ÓÐ˵
ÔÚ¹¤³ÌÎļþµÄ
Application.Run£»
Ç°Ãæ¼ÓÉÏ
Application.ShowMainForm:=False; µÄ£¬Õâ¸öµ¹ÊÇ¿ÉÒÔÒþ²Ø£¬¾ÍÊÇ´°ÌåÉÏÃæµÄWebBrowser¿Ø¼þÓò»ÁËÁË¡£
ÆÚ´ý¸ßÊÖ¸øÒ»¸öÍêÃÀµÄ½â¾ö°ì·¨°¡¡£
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.WebBrowser1.Navigate('WWW.SINA.COM');
Windows.SetParent(WebBrowser1.Handle, 0);
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=False;
Application.Run;
ÄãÊÇÏëҪʵÏÖ´°Ìå͸Ã÷°É
ÔÚinterfaceµÄprivateÀï¼ÓÈë
PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
ÔÚimplemetationÀï¼ÓÈë
PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
BEGIN
brush.style:=bsClear;
Inherited;
END;
Ïà¹ØÎÊ´ð£º
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......