摘要：
//查找一个文件 FileSearch var FileName,Dir,s: string; begin FileName := 'notepad.exe'; Dir := 'c:\windows'; s := FileSearch(FileName,Dir); if s'' then ShowMessage(s) //c:\windows\notepad.ex... 阅读全文
摘要：
//判断文件是否存在 FileExists var f: string; begin f := 'c:\temp\test.txt'; if not FileExists(f) then begin //如果文件不存在 end; end; //判断文件夹是否存在 DirectoryExists var dir: string; begin dir := '... 阅读全文
摘要：
元素表:http://demo.yanue.net/HTML5element/移除的元素 纯表现的元素：basefont，big，center，font, s，strike，tt，u； 对可用性产生负面影响的元素：frame，frameset，noframes； 产生混淆的元素：acronym... 阅读全文
摘要：
function TColorToHex(Color: TColor): string; begin Result := IntToHex(GetRValue(Color), 2) + IntToHex(GetGValue(Color), 2) + IntToHex(GetBValue(Color), 2); end; function HexToTColor(sC... 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button... 阅读全文
摘要：
var s: string; begin s := 'DelPhi'; ShowMessage(s[4]); //P s[4] := 'p'; ShowMessage(s); //Delphi end; 阅读全文
摘要：
//磁盘类型 GetDriveType var Drive: Char; DriveLetter: String[4]; begin for Drive := 'A' to 'Z' do begin DriveLetter := Drive + ':\'; case GetDriveType(PChar(Drive + ':\')) of DRIVE_... 阅读全文
摘要：
//声明: GetComputerName( lpBuffer: PChar; {缓冲区} var nSize: DWORD {缓冲区大小} ): BOOL; //举例: var arr: array[0..MAX_COMPUTERNAME_LENGTH] of char; d: DWORD; begin d := SizeOf(arr); GetComputerN... 阅读全文