如何获取内存参数等问题，谢谢大家帮忙(100分)

请问<br>1.如何获取内存参数<br>2.如何判断一个文件正在被其他程序使用<br>3.获得一个目录下的所有所有指定扩展名的文件列表（包含子目录） 返回类型_cStrLst=Array of ShortString<br>4.如何获得文件版本号<br>请说详细一点，谢谢！

unit memory;<br><br>interface<br><br>uses<br> &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> &nbsp;Dialogs, SUIButton, StdCtrls, SUIMemo, ExtCtrls, SUIForm;<br><br>type<br> &nbsp;TForm_mem = class(TForm)<br> &nbsp; &nbsp;suiForm1: TsuiForm;<br> &nbsp; &nbsp;GroupBox1: TGroupBox;<br> &nbsp; &nbsp;suiMemo1: TsuiMemo;<br> &nbsp; &nbsp;suiButton1: TsuiButton;<br> &nbsp; &nbsp;suiButton2: TsuiButton;<br> &nbsp; &nbsp;procedure suiButton1Click(Sender: TObject);<br> &nbsp; &nbsp;procedure suiButton2Click(Sender: TObject);<br> &nbsp;private<br> &nbsp; &nbsp;{ Private declarations }<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br> &nbsp;end;<br><br>var<br> &nbsp;Form_mem: TForm_mem;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm_mem.suiButton1Click(Sender: TObject);<br>var MemInfo: MEMORYSTATUS;<br>begin<br> &nbsp;// 获取内存信息<br> &nbsp;GlobalMemoryStatus(MemInfo);<br> &nbsp;suimemo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad) + '%的内存在使用');<br> &nbsp;suimemo1.Lines.Add('物理内存共有' + IntToStr(MemInfo.dwTotalPhys) + '字节');<br> &nbsp;suimemo1.Lines.Add('未使用的物理内存有' + IntToStr(MemInfo.dwAvailPhys) + '字节');<br> &nbsp;suimemo1.Lines.Add('交换文件的大小为' + IntToStr(MemInfo.dwTotalPageFile) + '字节');<br> &nbsp;suimemo1.Lines.Add('未使用的交换文件大小为' + IntToStr(MemInfo.dwAvailPageFile) + '字节');<br> &nbsp;suimemo1.Lines.Add('虚拟内存空间大小为' + IntToStr(MemInfo.dwTotalVirtual) + '字节');<br> &nbsp;suimemo1.Lines.Add('未使用的虚拟内存大小为' + IntToStr(MemInfo.dwAvailVirtual) + '字节');<br>end;<br><br>procedure TForm_mem.suiButton2Click(Sender: TObject);<br>begin<br> &nbsp; &nbsp;close;<br>end;

接受答案了.