摘要：
今天整理以往的项目代码，发现自己以前在网上找到的一段Delphi开启Windows目录对话框的代码，觉得对许多Delphi初学者很有用，特转贴出来。由于时间过久已经无法知道是从什么地方摘录的，在此特向原作者表示感谢！
Windows目录对话框是一个标准的WindowsUI控件，其可以列出一个目录列表，并且可以显示新增按钮。由于Delphi中并没有提供对于该控件的封装，所以新手（包括当年的我）大多使... 阅读全文
摘要：
这是个"过期"技术问题，我仅作为存档贴出来。以备日后参考。Delphi中读取JPEG图片可使用TJPEGImage对象，样例代码如下：varjpeg :TJpegImage ;jpeg := TJPEGImage.Create;tryjpeg.LoadFromFile(FileName);Image1.Canvas.Draw(0,0,jpeg);finallyjpeg.Free;end; 阅读全文
摘要：
Delphi中压缩文件的最好方式是使用ZipTV控件。其样例代码如下：procedure TForm1.Button1Click(Sender: TObject);varFileCompressed,I: Integer;FileName:String;beginif SaveDialog1.Execute thenbeginZip1.ArchiveFile := SaveDialog1.File... 阅读全文