Strpcopy; getTemppath SetLength; GetTempFileName (extractFileName), '', 0, pchar (tmpfile); =============== =================== Directory and file ============================ =========== Uses filectrl; (1) Decision path is presence in Function Directoryexists (Name: String): Boolean;
(2) Split ProcessPath for a full path file; var DRIVE: CHAR; VAR DIRPART: STRING; VAR FilePart: String)
(3) Creating a path in which Function Forcedirectories (Dir: String): boolean;
(4) selecting a directory function SelectDirectory (const Caption: string; const Root: WideString; out Directory: string): Boolean; function SelectDirectory (var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;
