技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[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'')