The following code snippet retrieves the list of linked files and displays it in the console window of the script editor:
....
var
FL : TStringList;
nfiles : integer;
i : integer;
begin
FL := TStringList.Create;
nfiles := GetLinkedFiles (FL);
if nfiles > 0 then
begin
for i:=1 to nfiles do
couts (FL[i-1]);
end;
end;
FL.Free;
....
|