//打开文件uses ShellAPI;
hellExecute(Handle,nil,pChar('F:\源\NetPhone\Readme.txt'),nil,nil,SW_SHOWNORMAL);