◇[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]判斷系統(tǒng)是否連接INTERNET
需要引入URL.DLL中的InetIsOffline函數(shù)。
函數(shù)申明為:
function InetIsOffline(Flag: Integer): Boolean; stdcall; external ''URL.DLL'';
然后就可以調(diào)用函數(shù)判斷系統(tǒng)是否連接到INTERNET
if InetIsOffline(0) then ShowMessage(''not connected!'')
else ShowMessage(''connected!'');
該函數(shù)返回TRUE如果本地系統(tǒng)沒有連接到INTERNET。
附:
大多數(shù)裝有IE或OFFICE97的系統(tǒng)都有此DLL可供調(diào)用。
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]網(wǎng)絡(luò)下載文件
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'')
相關(guān)推薦:2010年計算機等考三級網(wǎng)絡(luò)技術(shù)歷年試卷考點知識點匯總北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |