◇[DELPHI]如何判斷字符串是否是有效EMAIL地址

　　function IsEMail(EMail: String): Boolean;

　　var s: String;ETpos: Integer;

　　begin

　　ETpos:= pos(''@'', EMail);

　　if ETpos > 1 then

　　begin

　　s:= copy(EMail,ETpos+1,Length(EMail));

　　if (pos(''.'', s) > 1) and (pos(''.'', s) < length(s)) then

　　Result:= true else Result:= false;

　　end

　　else

　　Result:= false;

　　end;

　　◇[DELPHI]判斷系統是否連接INTERNET

　　需要引入URL.DLL中的InetIsOffline函數。

　　函數申明為:

　　function InetIsOffline(Flag: Integer): Boolean; stdcall; external ''URL.DLL'';

　　然后就可以調用函數判斷系統是否連接到INTERNET

　　if InetIsOffline(0) then ShowMessage(''not connected!'')

　　else ShowMessage(''connected!'');

　　該函數返回TRUE如果本地系統沒有連接到INTERNET。

　　附:

　　大多數裝有IE或OFFICE97的系統都有此DLL可供調用。

　　InetIsOffline

　　BOOL InetIsOffline(

　　DWORD dwFlags,

　　);

　　◇[DELPHI]簡單地播放和暫停WAV文件

　　uses mmsystem;

　　function PlayWav(const FileName: string): Boolean;

　　begin

　　Result := PlaySound(PChar(FileName), 0, SND_ASYNC);

　　end;

　　procedure StopWav;

　　var

　　buffer: array[0..2] of char;

　　begin

　　buffer[0] := #0;

　　PlaySound(Buffer, 0, SND_PURGE);

　　end;

　　◇[DELPHI]取機器BIOS信息

　　with Memo1.Lines do

　　begin

　　Add(''MainBoardBiosName:''+^I+string(Pchar(Ptr($FE061))));

　　Add(''MainBoardBiosCopyRight:''+^I+string(Pchar(Ptr($FE091))));

　　Add(''MainBoardBiosDate:''+^I+string(Pchar(Ptr($FFFF5))));

　　Add(''MainBoardBiosSerialNo:''+^I+string(Pchar(Ptr($FEC71))));

　　end;

　　◇[DELPHI]網絡下載文件

　　uses UrlMon;

　　function DownloadFile(Source, Dest: string): Boolean;

　　begin

　　try

　　Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;

　　except

　　Result := False;

　　end;

　　end;

　　if DownloadFile(''http://www.borland.com/delphi6.zip, ''c:\kylix.zip'') then

　　ShowMessage(''Download succesful'')

　　else ShowMessage(''Download unsuccesful'')