Resource Basics

Resource Details

Author Information

Script

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

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