파란크리스마스

출처 : http://www.scalabium.com/faq/dct0106.htm http://delphi.mylivepage.com/wiki/1380/638 uses ShlObj, ActiveX; function GetSystemPath(Folder: Integer): string; var PIDL: PItemIDList; Path: LPSTR; AMalloc: IMalloc; begin Path := StrAlloc(MAX_PATH); SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL); if SHGetPathFromIDList(PIDL, Path) then Result := Path; SHGetMalloc(AMalloc); AMalloc.Fr..

Delphi Tip - 파일이름 관련 함수 출처 : http://delphi.borlandforum.com/impboard/impboard.dll?action=read&db=del_tip&no=179 http://www.swissdelphicenter.ch/torry/showcode.php?id=144 http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace // 델파이 function ExtractFileDir(const FileName: string): string; function ExtractFileDrive(const FileName: string): string; function ExtractFileName(const FileName: string)..

Delphi Tip - File Download 출처 : http://delphi.about.com/od/internetintranet/a/get_file_net.htm uses WinInet; function GetInetFile (const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin result := false; sAppName := ExtractFileName(Application.ExeName); hSession := ..