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

◇[DELPHI]解析服务器IP地址

uses winsock

function IPAddrToName(IPAddr : String): String;

var

SockAddrIn: TSockAddrIn;

HostEnt: PHostEnt;

WSAData: TWSAData;

begin

WSAStartup($101, WSAData);

SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));

HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);

if HostEnt<>nil then result:=StrPas(Hostent^.h_name) else result:='''''''';

end;

◇[DELPHI]取得快捷方式中的连接

function ExeFromLink(const linkname: string): string;

var

FDir,

FName,

ExeName: PChar;

z: integer;

begin

ExeName:= StrAlloc(MAX_PATH);

FName:= StrAlloc(MAX_PATH);

FDir:= StrAlloc(MAX_PATH);

StrPCopy(FName, ExtractFileName(linkname));

StrPCopy(FDir, ExtractFilePath(linkname));

z:= FindExecutable(FName, FDir, ExeName);

if z > 32 then

Result:= StrPas(ExeName)

else

Result:= '''''''';

StrDispose(FDir);

StrDispose(FName);

StrDispose(ExeName);

end;

◇[DELPHI]控制TCombobox的自动完成

{''''Sorted'''' property of the TCombobox to true }

var lastKey: Word; //全局变量

//TCombobox的OnChange事件

procedure Tform1.AutoCompleteChange(Sender: TObject);

var

SearchStr: string;

retVal: integer;

上一页  [1] [2] [3] [4] [5] [6] [7]  下一页