uses shellapi;

DelDirectory程序：

Uses Windows,Registry;

function GetShellFolders(strDir: string): string;
const
  regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
var
  Reg: TRegistry;
  strFolders: string;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey(regPath, false) then begin
      strFolders := Reg.ReadString(strDir);
    end;
  finally
    Reg.Free;
  end;
  result := strFolders;
end;
     
{获取桌面}
     
function GetDeskeptPath: string;
begin
  Result := GetShellFolders('Desktop'); //是取得桌面文件夹的路径
end;
     
{获取我的文档}
     
function GetMyDoumentpath: string;
begin
  Result := GetShellFolders('Personal'); //我的文档
end;

function ExtractFileName ( const FullFileName : string ) : string;

在过程、函数、事件内部， SHIFT+CTRL+向上的方向键 可跳跃到相应的过程、函数、事件的定义．相反，在过程、函数、事件的定义处，SHIFT+CTRL+向下的方向键 可跳跃到具体过程、函数、事件内部
CTRL+ SHIFT + C:编写申明或者补上函数.
如：
procedure TT.A(AA: string); //函数申明
安下：CTRL+ SHIFT + C后，会写上
procedure TT.A(AA: string);
begin
end;

//声明:  
GetTempPath(  
  nBufferLength: DWORD; {缓冲区大小} 
  lpBuffer: PChar       {缓冲区} 
): DWORD;               {返回实际长度}

//举例:  
var 
  arr: array[0..MAX_PATH] of Char;  
  num: DWORD;  
begin 
  num := GetTempPath(MAX_PATH, arr);  
  ShowMessage(arr);           {C:\DOCUME~1\wy\LOCALS~1\Temp\} 
  ShowMessage(IntToStr(num)); {29} 
end;

WebBrowser组件的execWB方法

1. <object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></object>

WebBrowser.ExecWB (nCmdID, nCmdExecOpt, [pvaIn], [pvaOut])

　　许多食物正常时是美味营养的好食品，但一旦不新鲜、发芽，或是采用非常规手段催熟后，就会出现不利身体健康的毒素，有一些甚至会危及到生命。孩子比成人的抵抗力更弱，在制作孩子的食物时，更要注意不要让这些食材上了餐桌！

　　一、青西红柿

　　青西红柿含有毒性物质、叫龙葵素，食用这种还未成熟的青色西红柿，口腔有苦涩感，吃后可出现恶心、呕吐等中毒症状，生吃危险性更大。

……

XML文件

<?xml version="1.0" encoding="utf-8"?>

.......

　　从下月开始按照新规进行调整的驾考牵动着众多市民的心，而此次调整的重点、科目二桩考的考场将在本月下旬开始大规模改造。9日，记者从多家驾校及车管部门了解到，此次驾考的调整重点之一，是将桩考原本的“8字桩”移库，改为“蝴蝶桩”，并且在进入桩位时要一气呵成不能停车，同时，针对文明驾驶等内容增加了科目四理论考试。