找几个函数或方法！！！----大家都来看看，总会有用到的时候

Question

1、将字符转unicode码
2、将unincode码转字符
3、获取系统临时文件夹
4、获取系统windows文件夹
5、获取系统program file文件夹
6、创建目录
7、切换目录
8、确定指定文件名的文件是否存在
9、按文本方式打开、读取、覆盖写入、追加写入、关闭文件
10、删除文件
11、删除目录
12、按文本方式读取中英文混合的字符串中的字符
13、将数字转成对应的十六进制字符串

Answer 1

1、将字符转unicode码                     WideCharLenToString2、将unincode码转字符                    WideCharToString

Answer 2

以下是取得系统的特定文件夹路径的函数function GetSpecialFolderDir(mFolder: Integer): string;
{ 返回获取系统文件或系统目录 }
(*
    CSIDL_BITBUCKET         *   回收站
    CSIDL_CONTROLS          *   控制面板
    CSIDL_DESKTOP           *   桌面
    CSIDL_DESKTOPDIRECTORY      桌面目录       //如C:\WINDOWS\Desktop
    CSIDL_DRIVES            *   我的电脑
    CSIDL_FONTS                 字体           //如C:\WINDOWS\FONTS
    CSIDL_NETHOOD               网上邻居目录   //如C:\WINDOWS\NetHood
    CSIDL_NETWORK           *   网上邻居
    CSIDL_PERSONAL              我的文档       //如C:\My Documents
    CSIDL_PRINTERS          *   打印机
    CSIDL_PROGRAMS              程序组         //如C:\WINDOWS\Start Menu\Programs
    CSIDL_RECENT                最近文档       //如C:\WINDOWS\Recent
    CSIDL_SENDTO                发送到         //如C:\WINDOWS\SentTo
    CSIDL_STARTMENU             开始菜单       //如C:\WINDOWS\Start Menu
    CSIDL_STARTUP               启动           //如C:\WINDOWS\启动
    CSIDL_TEMPLATES             模版           //如C:\WINDOWS\ShellNew
*)
var
  vItemIDList: PItemIDList;
  vBuffer: array[0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(0, mFolder, vItemIDList);
  SHGetPathFromIDList(vItemIDList, vBuffer); //转换成文件系统的路径
  Result := vBuffer;
end;如我要得到桌面的路径：GetSpecialFolderDir(CSIDL_DESKTOP): 

Answer 3

(*//
标题:无限进制转换
说明:使用于数学领域进制之间相互转换
设计:Zswang
日期:2002-01-24
支持:[email protected]
//*)
 
///////Begin Source
const
  cScaleChar = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
function IntPower(Base, Exponent: Integer): Integer; { 返回Base的Exponent次方 }
var
  I: Integer;
begin
  Result := 1;
  for I := 1 to Exponent do
    Result := Result * Base;
end; { IntPower }
 
function IntToDigit(mNumber: Integer; mScale: Byte;
  mLength: Integer = 0): string;
{ 返回整数的进制表示;mScale指定多少进制;mLength指定长度,长度不足时向前补0 }
var
  I, J: Integer;
begin
  Result := '';
  I := mNumber;
  while (I >= mScale) and (mScale > 1) do begin
    J := I mod mScale;
    I := I div mScale;
    Result := cScaleChar[J + 1] + Result;
  end;
  Result := cScaleChar[I + 1] + Result;
  for I := 1 to mLength - Length(Result) do Result := '0' + Result;
end; { IntToDigit }
 
function DigitToInt(mDigit: string; mScale: Byte): Integer;
{ 返回进制表示转换成整数;mScale指定多少进制 }
var
  I: Byte;
  L: Integer;
begin
  Result := 0;
  mDigit := UpperCase(mDigit);
  L := Length(mDigit);
  for I := 1 to L do
    Result := Result + (Pos(mDigit[L - I + 1], cScaleChar) - 1) *
      IntPower(mScale, I - 1);
end; { DigitToInt }
///////End Source
 
///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToDigit(StrToIntDef(Edit2.Text, 0), 16);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Text := IntToStr(DigitToInt(Edit1.Text, 16));
end;
///////End Demo
 

Answer 4

(*//
标题:删除指定目录
说明:支持删除有只读、隐藏属性的文件或目录
设计:Zswang
日期:2002-01-25
支持:[email protected]
//*)
 
///////Begin Source
function DeletePath(mDirName: string): Boolean; { 返回删除指定目录是否成功 }
var
  vSearchRec: TSearchRec;
  vPathName: string;
  K: Integer;
begin
  Result := True;
  vPathName := mDirName + '\*.*';
  K := FindFirst(vPathName, faAnyFile, vSearchRec);
  while K = 0 do begin
    if (vSearchRec.Attr and faDirectory > 0) and
      (Pos(vSearchRec.Name, '..') = 0) then begin
      FileSetAttr(mDirName + '\' + vSearchRec.Name, faDirectory);
      Result := DeletePath(mDirName + '\' + vSearchRec.Name);
    end else if Pos(vSearchRec.Name, '..') = 0 then begin
      FileSetAttr(mDirName + '\' + vSearchRec.Name, 0);
      Result := DeleteFile(PChar(mDirName + '\' + vSearchRec.Name));
    end;
    if not Result then Break;
    K := FindNext(vSearchRec);
  end;
  FindClose(vSearchRec);
  Result := RemoveDir(mDirName);
end; { DeletePath }

Answer 5

8、确定指定文件名的文件是否存在          FileExists9、按文本方式打开、读取、覆盖写入、追加写入、关闭文件   AssignFile(),它可以将文件变量与一个文件关联起来
   rewrite()过程创建并打开文件；对于一个已存在的文件，此操作将使文件被覆盖；
   Reset()过程只读地打开一个文件;
   Append() 过程向已存在的文件追加文本。
   CloseFile()来关闭一个已打开的文件

Answer 6

要获取Windows目录位置，你必须使用Win32 API函数GetWindowsDirectory()。函数声明如下：
function GetWindowsDirectory(lpBuffer:PChar;uSize:UINT):UINT;
第一个参数是一个以null结束的字符串缓冲区，用于返回Windows目录位置。第二个参数用于指定缓冲区的大小。

Answer 7

6、创建目录                         CreateDir(const Dir: string)
7、切换目录                         ChDir(const S: string)
8、确定指定文件名的文件是否存在     FileExists(const FileName: string)
10、删除文件                        DeleteFile(const FileName: string)
11、删除目录                        RemoveDir(const Dir: string)
13、将数字转成对应的十六进制字符串  IntToHex(要转换的数字,生成的位数)

Answer 8

总结一下  1、将字符转unicode码                          WideCharLenToString
2、将unincode码转字符                         WideCharToString
3、获取系统临时文件夹                         
4、获取系统windows文件夹                      GetWindowsDirectory()
5、获取系统program file文件夹                 
6、创建目录                                   CreateDir(const Dir: string)
7、切换目录                                   ChDir(const S: string)
8、确定指定文件名的文件是否存在               FileExists(const FileName: string)
9、按文本方式打开、读取、覆盖写入、追加写入、关闭文件
10、删除文件                                  DeleteFile(const FileName: string)
11、删除目录                                  RemoveDir(const Dir: string)
12、按文本方式读取中英文混合的字符串中的字符
13、将数字转成对应的十六进制字符串            IntToHex(要转换的数字,生成的位数)
还差  4  个

Answer 9

呵呵。还差3个  ，自己写的都忘了，灌水灌晕了9、按文本方式打开、读取、覆盖写入、追加写入、关闭文件   AssignFile(),它可以将文件变量与一个文件关联起来
   rewrite()过程创建并打开文件；对于一个已存在的文件，此操作将使文件被覆盖；
   Reset()过程只读地打开一个文件;
   Append() 过程向已存在的文件追加文本。
   CloseFile()来关闭一个已打开的文件

Answer 10

12、按文本方式读取中英文混合的字符串中的字符
楼主，我觉得这个东西根本就……
将它设成widestring不就搞定了？

Answer 11

还有
    3、获取系统临时文件夹          
    5、获取系统program file文件夹有直接使用的函数吗？ 可以通过调用Win32 API GetSystemDirectory()函数来获取系统目录的位置。GetSystemDirectory()与GetWindowsDirectory()类似，但它返回的是系统的目录，而非Windows的目录反正就是temp和program file知道了目录找这两个目录很简单的

Answer 12

谢谢myling(阿德)
谢谢ptma(守望者)
谢谢shaoin(小小) 
马上结贴！~~