Çë½ÌÈçºÎÔÚdelphiÖе¥»÷°´Å¥ºóµ÷Óñ¾µØÓÊÏä·¢Óʼþ.
Çë½ÌÈçºÎÔÚdelphiÖе¥»÷°´Å¥ºóµ÷Óñ¾µØÓÊÏä·¢Óʼþ.
uses
shellApi;
Shellexecute(0, nil, 'mailto:XXX@XX.XX', nil, nil, sw_ShowNormal);
Êdzɹ¦µ÷³öÁËOutlook Expree,Äܲ»Äܸü·½±ãµã,¾ÍÊDz»µ¯³öÕâ¸ö,ÔÚ³ÌÐòÀﶨÒåÓʼþ±êÌâºÍÄÚÈÝ,µ±Óû§Ò»µãBottonʱ¾Í×Ô¶¯·¢³öÈ¥.
up
ÓÃindy Clients±êÇ©ÖеÄIdSMTPºÍindy Misc±êÇ©ÀïµÄIdMessage,´úÂëÈçÏÂ:
//-----ÎÊÌâÊDz»ÖªÈçºÎ»ñÈ¡±¾»úĬÈϵÄÓʼþ¿Í»§¶ËµÄÓû§ÃûÈ¥·¢Õâ¸öÓʼþ,
//-----¸÷λһÆðÑо¿Ò»ÏÂ.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,
IdSMTP, IdBaseComponent, IdMessage, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
MailMessage: TIdMessage;
Mail: TIdSMTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Mail.Connected then Mail.Disconnect;
Mail.Username:=
Ïà¹ØÎÊ´ð£º
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......