Mega Code Archive
Tanımlı aliasları listele
<![CDATA[
procedure TForm1.FormCreate(Sender: TObject);
var
List:TStringList;
var i:integer;
begin
FileVersionInfo1.ExecutableFile:=Application.ExeName;
Caption:=Caption+' Ver '+FileVersionInfo1.FileVersion+'.'+FileVersionInfo1.Build+' Ersan Çelik';
List := TStringList.Create;
try
Session.GetAliasNames(List);
for i := 0 to List.Count - 1 do
begin
ListBox2.Items.Add(List[i]);
end;
finally
List.Free;
end;
espedon@hotmail.com
]]>