Resource Basics

Resource Details

Author Information

Script

var
  i: Integer;
  ASl: TTntStringList;
begin
  if Selected.Count = 0 then
  begin
    Say('No thumbnail selected');
    exit;
  end;

  ASl := TTntStringList.Create;
  try
    ASl.Sorted := True;
    for i := 0 to Selected.Count - 1 do
    begin
      if ASl.IndexOf(Selected.Items[i].FileNamePath) = -1 then
        ASl.Add(Selected.Items[i].FileNamePath);
    end;
    if ASl.Count > 0 then
    begin
      CopyTextToClipboard(ASl.Text);
      SendVisualFeedback('The folder name for ' + IntToStr(Selected.Count) + ' ' + iif(ASl.Count = 1, 'image', 'images') + ' was copied to the clipboard', 5000);
    end;
  finally
    ASl.Free;
  end;
end;