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字桩”移库,改为“蝴蝶桩”,并且在进入桩位时要一气呵成不能停车,同时,针对文明驾驶等内容增加了科目四理论考试。