var
TempPath:PansiChar;
FilePath:string;
GetMem(TempPath,100);
try
GetTempPathA(100,TempPath);
FilePath:=TempPath;
finally
FreeMem(TempPath,100);
end;
TempPath:PansiChar;
FilePath:string;
GetMem(TempPath,100);
try
GetTempPathA(100,TempPath);
FilePath:=TempPath;
finally
FreeMem(TempPath,100);
end;
解决方案 »
- 小问题:如何取得随机颜色(请附代码)在线等待,立即送分!
- 只要发了贴子,没得到答案结贴时也得给分?不公平啊。
- 如何实现ping的功能?
- 象WinAmp的界面是怎么做出来的?有这样的类库(或组件)么?谢谢。
- 超人难搞问题??(delphi+oracle)
- 100 分求F1BOOK6的几个简单的问题?请F1BOOK6的高手进来。
- 怎样才能不按F9而生成.exe文件呢?
- 请教一个Sql的写法,在线等待,20分立马送出.
- 数码相机与DELHI…50分求
- 请问如何让RichEdit控件自动识别http://,并在网址下家下加划线变成一个超连结。一定给分!!!
- delphi和pb在开发数据库方面有多少差距?
- ?SQL
我的是
C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\
也就是
C:\Documents and Settings\Administrator\Local Settings\Temp
TempPath:PansiChar; //定义PansiChar类型变量
FilePath:string; //定义string类型变量
GetMem(TempPath,100); //给PansiChar变量分配内存
try
GetTempPathA(100,TempPath); //执行函数,返回temp目录到变量TempPath中
FilePath:=TempPath; //将TempPath的目录值赋给一个string
finally
FreeMem(TempPath,100); //释放内存
end;