티스토리 뷰
728x90
출처 : http://www.delphitricks.com/source-code/systeminfo/get_windows_system_temporary_directory.html
{ Getting the Temporary Directory } function GetTempDir: string; var Buffer: array[0..MAX_PATH] of Char; begin GetTempPath(SizeOf(Buffer) - 1, Buffer); Result := StrPas(Buffer); end; function GetTempPath: string; var TmpDir: PChar; begin TmpDir := StrAlloc(MAX_PATH); GetTempPath(TmpDir, MAX_PATH); Result := string(TmpDir); if Result[Length(Result)] <> '\' then Result := Result + '\'; StrDispose(TmpDir); end; function GetTempPath(var S: String): Boolean; var Len: Integer; begin Len := Windows.GetTempPath(0, nil); if Len > 0 then begin SetLength(S, Len); Len := Windows.GetTempPath(Len, PChar(S)); SetLength(S, Len); Result := Len > 0; end else Result := False; end;
댓글
300x250
공지사항
최근에 올라온 글
최근에 달린 댓글
- Total
- Today
- Yesterday
TAG
- koba2010
- oracle
- BPI-M4
- Spring MVC
- NDK
- sas2009
- android
- 송주경
- Delphi Tip
- ble
- Delphi
- 일본여행
- 지스타2007
- Spring
- ffmpeg
- MySQL
- KOBA
- Linux
- 서울오토살롱
- 동경
- JavaScript
- SAS
- Xcode
- Java
- 레이싱모델 익스트림 포토 페스티벌
- flex
- Mac
- ubuntu
- 전예희
- 튜닝쇼 2008
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | |||
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 31 |
글 보관함