摘要： ExtractFileName(const FileName: string);举个例子：ExtractFileName(Application.ExeName);//得到当前文件名。其它相关函数还有ExtractFilePath //路径ExtractFileExt //扩展名ExtractFileDrive //盘符 //获取文件名不带后缀ChangeFileExt(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename,''); 阅读全文

摘要： //选择文件夹function SelectFolderDialog(const Handle: integer; const Caption: string; const InitFolder: WideString; var SelectedFolder: string): boolean;var BInfo: _browseinfo; Buffer: array[0..MAX_PATH] of Char; ID: IShellFolder; Eaten, Attribute: Cardinal; ItemID: PItemidlist;begin Result := False; BIn 阅读全文