for i:=1 to length(s) do

if s[i] in ['\','/',':','*','?','<','>','|'] then

◇[DELPHI]轉(zhuǎn)換函數(shù)的定義及說明

datetimetofiledate (datetime:Tdatetime):longint; 將Tdatetime格式的日期時間值轉(zhuǎn)換成DOS格式的日期時間值

datetimetostr (datetime:Tdatetime):string; 將Tdatatime格式變量轉(zhuǎn)換成字符串,，如果datetime參數(shù)不包含日期值，返回字符串日期顯示成為00/00/00,，如果datetime參數(shù)中沒有時間值,，返回字符串中的時間部分顯示成為00：00：00 AM

datetimetostring (var result string;

const format:string;

datetime:Tdatetime); 根據(jù)給定的格式字符串轉(zhuǎn)換時間和日期值，result為結(jié)果字符串,，format為轉(zhuǎn)換格式字符串,，datetime為日期時間值

datetostr (date:Tdatetime) 使用shortdateformat全局變量定義的格式字符串將date參數(shù)轉(zhuǎn)換成對應(yīng)的字符串

floattodecimal (var result:Tfloatrec;value:

extended;precision,decimals:

integer); 將浮點數(shù)轉(zhuǎn)換成十進制表示

floattostr (value:extended):string 將浮點數(shù)value轉(zhuǎn)換成字符串格式，該轉(zhuǎn)換使用普通數(shù)字格式,，轉(zhuǎn)換的有效位數(shù)為15位,。

floattotext (buffer:pchar;value:extended;

format:Tfloatformat;precision,

digits:integer):integer; 用給定的格式、精度和小數(shù)將浮點值value轉(zhuǎn)換成十進制表示形式,，轉(zhuǎn)換結(jié)果存放于buffer參數(shù)中,，函數(shù)返回值為存儲到buffer中的字符位數(shù)，buffer是非0結(jié)果的字符串緩沖區(qū),。

floattotextfmt (buffer:pchar;value:extended;

format:pchar):integer 用給定的格式將浮點值value轉(zhuǎn)換成十進制表示形式,，轉(zhuǎn)換結(jié)果存放于buffer參數(shù)中，函數(shù)返回值為存儲到buffer中的字符位數(shù),。

inttohex (value:longint;digits:integer):

string; 將給定的數(shù)值value轉(zhuǎn)換成十六進制的字符串,。參數(shù)digits給出轉(zhuǎn)換結(jié)果字符串包含的數(shù)字位數(shù)。

inttostr (value:longint):string 將整數(shù)轉(zhuǎn)換成十進制形式字符串

strtodate (const S:string):Tdatetime 將字符串轉(zhuǎn)換成日期值,，S必須包含一個合法的格式日期的字符串,。

strtodatetime (const S:string):Tdatetime 將字符串S轉(zhuǎn)換成日期時間格式，S必須具有MM/DD/YY HH：MM：SS[AM|PM]格式,，其中日期和時間分隔符與系統(tǒng)時期時間常量設(shè)置相關(guān),。如果沒有指定AM或PM信息，表示使用24小時制,。

strtofloat (const S:string):extended; 將給定的字符串轉(zhuǎn)換成浮點數(shù),，字符串具有如下格式：

[+|-]nnn…[.]nnn…[<+|-><E|e><+|->nnnn]

strtoint (const S:string):longint 將數(shù)字字符串轉(zhuǎn)換成整數(shù)，字符串可以是十進制或十六進制格式,，如果字符串不是一個合法的數(shù)字字符串,，系統(tǒng)發(fā)生ECONVERTERROR異常

strtointdef (const S:string;default:

longint):longint; 將字符串S轉(zhuǎn)換成數(shù)字,，如果不能將S轉(zhuǎn)換成數(shù)字，strtointdef函數(shù)返回參數(shù)default的值,。

strtotime (const S:string):Tdatetime 將字符串S轉(zhuǎn)換成TDATETIME值,，S具有HH：MM：SS[AM|PM]格式，實際的格式與系統(tǒng)的時間相關(guān)的全局變量有關(guān),。

timetostr (time:Tdatetime):string; 將參數(shù)TIME轉(zhuǎn)換成字符串,。轉(zhuǎn)換結(jié)果字符串的格式與系統(tǒng)的時間相關(guān)常量的設(shè)置有關(guān)。

◇[DELPHI]程序不出現(xiàn)在ALT+CTRL+DEL

在implementation后添加聲明:

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';

RegisterServiceProcess(GetCurrentProcessID, 1);//隱藏

RegisterServiceProcess(GetCurrentProcessID, 0);//顯示

用ALT+DEL+CTRL看不見

◇[DELPHI]程序不出現(xiàn)在任務(wù)欄

uses windows

var

Extendedstyle : Integer;

begin

Application.Initialize;

//==============================================================

Extendedstyle := GetWindowLong (Application.Handle, GWL_EXstyle);

SetWindowLong(Application.Handle, GWL_EXstyle, Extendedstyle OR WS_EX_TOOLWINDOW

AND NOT WS_EX_APPWINDOW);

//===============================================================

Application.Createform(Tform1, form1);

Application.Run;

end.

◇[DELPHI]如何判斷撥號網(wǎng)絡(luò)是開還是關(guān)

if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then

showmessage('在線!')

else showmessage('不在線!');

◇[DELPHI]實現(xiàn)IP到域名的轉(zhuǎn)換

function GetDomainName(Ip:string):string;

var

pH:PHostent;

data:twsadata;

ii:dword;

begin

WSAStartup($101, Data);

ii:=inet_addr(pchar(ip));

pH:=gethostbyaddr(@ii,sizeof(ii),PF_INET);

if (ph<>nil) then

result:=pH.h_name

else

result:='';

WSACleanup;

end;

◇[DELPHI]處理“右鍵菜單”方法

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey:=HKEY_CLASSES_ROOT;

reg.OpenKey('*\shell\check\command', true);