Question

DELPHI中,如何把2个资源文件释放到系统临时目录?

如题,我想运行程序后,把嵌入程序中的2个资源文件(如1.exe,2.doc)文件释放到windows临时目录下并运行?重点是如何取得临时目录,不要这种方法"c:\windows\temp\",因为无法确定系统在哪个分区,要能直接分析出准确目录的方法,求高手们来段可行的delphi代码,谢谢!

Answer 1

先取Windws目录，然后即可得到临时目录：

procedure TForm1.Button1Click(Sender: TObject);
var
WinDir:String;
WTempDir:String;
begin
SetLength(WinDir,144);
if GetWindowsDirectory(PChar(WinDir),144)<>0 then
begin
SetLength(WinDir,StrLen(PChar(WinDir)));
WTempDir:=WinDir;
if WTempDir[Length(WTempDir)]<>'\' then
WTempDir:=WTempDir+'\';
WTempDir:=WTempDir+'temp';
if DirectoryExists(WTempDir) then
ShowMessage(WTempDir)
else
ShowMessage(WTempDir+'不存在');
end
else
RaiseLastWin32Error;
end;

Answer 2

path := ExtractFilePath(Application.Exename) + 'temp'
if not DirectoryExists(path) then
begin
ForceDirectories(PChar(path));
end;