Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphiµ÷ÓÃoutlook

 //¶¨ÒåÈ«¾Ö±äÁ¿
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//´´½¨´ò¿ªoutlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.application');
except
Outlook:=GetActiveOleObject('Outlook.Application');
end;
OutlookNameSpace:=Outlook.GetNamespace('MAPI');
OutlookFolder:=OutlookNameSpace.GetDefaultFolder(6);
MailItem:=OutlookFolder.items;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CreateOutLook;
WebBrowser1.Navigate('about:');
end;
//ËÑË÷δ¶ÁÓʼþ ²¢ÓÃwebbrowser1ÏÔʾÓʼþÄÚÈÝ
procedure TForm1.bt_SearchMailClick(Sender: TObject);
var
sch:Variant;
Smail:Variant;
strF:string;
i:integer;
mailbody:WideString;
begin
strF:='[senderEmailAddress]="%s" and [unread]=true';
strF:=Format(strF,[Trim(Edit1.Text)]);
sch:=MailItem.Restrict(strF);
mailbody:='ÕÒµ½·ûºÏÌõ¼þµÄÓʼþÊýÁ¿£º'+inttostr(sch.count);
for i:=1 to sch.count do
begin
Smail:=sch.item[i];
mailbody:=mailbody+Smail.HTMLBody;
end;
(webbrowser1.Document as IHtmlDocument2).body.innerHTML:='<div>'+mailbody+'</div>';
end;
//·¢ËÍÓʼþ
procedure TForm1.tb_SendMailClick(Sender: TObject);
begin
MailItem:=outlook.CreateItem(0);
MailItem.BodyFormat:=2;
MailItem.HTMLBody:='<html><Body>'
+'HI:<br>  ÄãºÃ!ºÜ¾Ã²»¼û£¬×î½ü¿ÉºÃ£¿'
+'</body></html>';
MailItem.Recipients.add('baronyang@foxmail.com');
MailItem.Subject:='ÖÂÅóÓÑ';
MailItem.Attachments.add('F:\MyFiles\login.ini');
MailItem.Attachments.add('F:\MyFiles\XXXXX.doc');
MailItem.Display;
end;


Ïà¹ØÎĵµ£º

Delphi ÖÐMd5»ñÈ¡£¨Indy 9£©







ÔÚDelphi×Ô´øµÄIndy¿Ø¼þÖÐÆäʵÊÇÌṩÁËMD2,MD4,MD5¶ÔÏóµÄ£¬ÎÒÃÇ¿ÉÒÔÖ±½ÓʹÓÃËüÃÇÀ´Íê³ÉMD5µÄÇ©ÃûËã·¨¡£¶ø²»ÐèÒªÔÙÈ¥ÕÒÆäËüµÄ
DLL»òÊÇPasÁË¡£
ÔÚUsesµ¥ÔªÖÐÒýÓà IdHashMessageDigest,IdGlobal, IdHash µ¥Ôª£¬ÔÙдÈçÏ´úÂë¼´¿ÉÒÔ´ïµ½MD5µÄʵÏÖ¡£
ʾÀý´úÂë
procedure TForm1.Button1Click(Sen ......

DelphiÖÐÈýÖÖ·½·¨»ñÈ¡WindowsÈÎÎñÀ¸µÄ¸ß¶È

µÚÒ»ÖÖ£ºÐèÒªÒýÓÃWindowsµ¥Ôª
ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));
µÚ¶þÖÖ£ºÐèÒªÒýÓÃWindowsµ¥Ôª
function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Resul ......

C# Delphi´¦Àí·ÖÎöQQЭÒé


C# Delphi´¦Àí·ÖÎöQQЭÒé
 
 
¡¡´ó¼Ò˵µ½QQЭÒé¶¼¾õµÃºÜÉñÃØ£¬ÊÇÒòΪQQ²»ÏñMSN»òÕßICQЭÒé¶¼ÒѾ­¹Ù·½¹«²¼ÁË£¬¶øQQµÄûÓй«²¼¡£Ñо¿ËüµÄÈËÒ²²»ÊÇÌØ±ðµÄ¶à£¬ËäÈ»ÒѾ­ÓÐÁË»ùÓÚ QQЭÒéËùд³ÉµÄµÚÈý·½Èí¼þ foicq, qq plugins for gaim, LumaQQ£¬µ«ÊÇÓÉÓÚËûÃÇÊÇ»ùÓÚ¶þ½øÖÆStreamµÄЭÒé¹ýÓÚ¸´ÔÓ£¬´ó¼ÒÔĶÁ´úÂëÒ²ÓÐÒ ......

ÓÃdelphi´òÔìÊôÓÚ×Ô¼ºµÄ²¥·ÅÆ÷

    Èç½ñRealPlayerµÄÁ÷ʽýÌåÎļþÒÔÆäÇ¿´óµÄÊÓÆµÑ¹Ëõ±ÈÕýÖð²½ÇÄÈ»ÐËÆð¡£RealPlayer Plus²¥·ÅÆ÷Ò²ÀíËùµ±È»µØ³ÉΪ´ó¼Ò²¥·ÅRealPlayer¸ñʽÎļþµÄÊ×Ñ¡Èí¼þ¡£²»¹ýRealPlayer PlusÒ²²»ÊÇʮȫʮÃÀµÄ£¬±ÈÈçÆô¶¯Ê±¼äÂý£¬Õ¼Óÿռä´ó£¬ÁôÓÐÀúÊ·¼Ç¼µÈµÈ¡£ÆäʵÎÒÃÇ¿ÉÒÔÀûÓÃDelphi´òÔìÒ»¸öÍêÈ«·ûºÏ×Ô¼ºÒªÇóµÄRealPlayer² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ