ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
unit Unit2;
interface
uses
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls,
MSPROJECT_TLB,
ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
procedure GetTaskNames(fProject: OleVariant);
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender
var
aProject: OleVariant;
begin
aProject := CreateActiveOleObject('MSP
aProject.Visible := True;
try
aProject.FileNew;
GetTaskNames(aProject);
except
aProject.Free; //project doesn't support free but the object will be released.
end;
end;
procedure TForm1.GetTaskNames(fProje
var
FTasks: TStringList;
iCounter: Integer;
begin
FTasks := TStringlist.Create;
try
for iCounter := 1 to FProject.ActiveProject.Num
FTasks.Add(FProject.Active
next;
end;
ListBox1.Items := FTasks;
finally
FTasks.Free;
end;
end;
end.
Hope this helps,
BTW Could make a sample that retrieves more then just the name ask for it and I can see what I can brew.
:O)
Bruintje.