ActiveX context menu

er der ikke nogen der kan hjælpe?

Fra  hjælpen
Trim removes leading and trailing spaces and control characters from the given string S.

Slet selv mellemrum eller erstat dem med ingenting

eks

Memo1.text := stringreplace(Memo1.text, ' ', '', [RfReplaceAll]);

Stoney

Ja, men så vil den også fjerne mellemrummet mellem 1 og til (\1 fil\)

så bliver det sådan her "C:\mappe\til\1fil\fil.exe" men skal være "C:\mappe\til\1 fil\fil.exe"

Når jeg trimmer
"  C:\mappe\til\1 fil\fil.exe                                                  "
så ender den måske sådan her
"  C:\mappe\til\1 fil\fil.exe      "

den trimmer ikke!?!? hvorfor?!?

  case LoWord(CommandInfo.lpVerb) of
    0: ShellExecute(0, 'open', 'notepad.exe', '', nil, SW_SHOW);
    1: ShellExecute(0, 'open', 'calc.exe', '', nil, SW_SHOW);
    2: begin
      showmessage('Antal Filer: ' + inttostr(uNumFiles));
      for i:=0 to uNumFiles do
      begin
        test := stringreplace(FFileList[i], ' ', '', [RfReplaceAll])
        showmessage(test);
      end;

Det må være din stringlist der er noget galt med.

Prøv at poste uNumFiles her

Stoney

Det er her jeg tilføjer til stringlist og finder ud af hvor mange filer der er valg, uNumFiles. Alle de valgte filer bliver tilføjet, men de har allle sammen en masse mellemrum til sidst

private
    FFileName: string;
    FFileList: TStringList;
    uNumFiles: integer;

function WinContextMenu.ShellInit( Folder: PItemIDList;
                                        DataObject: IDataObject;
                                        ProgID: HKEY ): HResult;
var
  Medium: TStgMedium;
  FE: TFormatEtc;
  i: integer;
begin
  if DataObject = nil then
  begin
    Result := E_FAIL;
    Exit;
  end;

  with FE do
  begin
    cfFormat := CF_HDROP;
    ptd := nil;
    dwAspect := DVASPECT_CONTENT;
    lindex := -1;
    tymed := TYMED_HGLOBAL;
  end;

  // Transfer the data referenced by the IDataObject reference to
  // an HGLOBAL storage medium in CF_HDROP format.
  Result := DataObject.GetData( FE, Medium );
  if Failed( Result ) then
    Exit;
  try
    FFileList := TStringList.Create;
    uNumFiles := DragQueryFile( Medium.hGlobal, $FFFFFFFF, nil, 0)-1;
    for i:=0 to uNumFiles do
    begin
      SetLength( FFileName, MAX_PATH );
      DragQueryFile( Medium.hGlobal, i, PChar(FFileName), MAX_PATH);
      FFileList.Add(FFileName);

      Result := NOERROR;
    end;

  finally
    ReleaseStgMedium( Medium );
  end;
end;

Hvis jeg laver en stringlist med en masse mellemrum i slutningen af hver linie bliver
mellemrummene fjernet med trim.

Prøv at gemme din stringlist i en text fil og load og trim den.
Det må være en anden fejl, functionen trim virker.

Iøvrigt glemmer du at free FFileList.

Stoney

Ja, jeg skal lige free den i InvokeCommand efter jeg har kørt min løkke med Showmessage()

Trim virker også når jeg bruger den, men trimmer bare ikke det hele. Hvis jeg ikke bruger Trim så er min messagebox så bred at hele messageboxen ikke kan se på skærmen, messageboxens OK knap er også uden for skærmen. Hvis jeg trimmer den inden jeg messagebox'er den så kan hele messageboxen se på skærmen, men der er stadig en masse mellemrum.

Vil lige prøve at gemme den til en fil som du sagde... men det kan først blive på mandag da jeg ikke lige har koden på denne PC som jeg er ved nu...

Har prøvet det du sagde.. den gør det samme hvis jeg gemmer til en fil.

"C:\Documents and Settings\smith\Skrivebord\PaintDotNet.exe                        "
"C:\Documents and Settings\smith\Skrivebord\Notepad2.exe                          "

Den gemmer sti og mellemrum så der er præcis 261 tegn på hver linie!!
hvis jeg så loader den igen. så loader den KUN den første linie! ikke resten

MAX_PATH - Indeholder altid værdien 260.. har ikke set den indeholde andre værdier

      SetLength( FFileName, MAX_PATH );
      DragQueryFile( Medium.hGlobal, i, PChar(FFileName), MAX_PATH);
      FFileList.Add(FFileName);

Hej Smith,

Er du sikker på det er spaces (#32) der er placeret i strengen og ikke andet?
man kunne tænke sig den afsluttet med #8 eller #13#10 f.eks. og så virker trim vel ikke ?

Det ved jeg sq ikke. Hvordan kan jeg tjekke det?

Har uploadet filen så du kan se hvordan den gemmer
http://www.gratisupload.dk/show.php?fileId=662

hmmm det er ikke space..
http://img206.imageshack.us/img206/505/testlb6.png

Åbnede filen med notepad2...

i følgende kode kan du erstatte s med din fFileList

procedure TForm1.Button1Click(Sender: TObject);
var s: tStringlist;
  i,j:integer;
  ss,st2:string;
  ch:char;
  by: byte absolute ch;
begin
st2:='';
s:= tStringlist.Create;
s.Add('  linie1  ');
s.Add('  linie2  ');

for i:=0 to s.Count-1 do
  begin
  for j:=1 to length(s[i]) do
    begin
    ch := (s.strings[i][j]);
    Str(by,ss);
    st2 := st2 +'.'+ ss;
    end;
  Messagebox(0,pChar( '>'+trim(s[i])+'<  '+st2),'',0);
  end;
s.Clear;
s.Free;
end;

st2:='' skal nok lige flyttes ind under begin i "for i"
og så kan det selvfølgelig hænde at st2 bliver for lang med dine 161 ? tegn :-))

http://img207.imageshack.us/img207/9500/test3gc4.png

Prøv evt. at bruge Strpas() ved indlæsningen i ffilelist ?

Du skal nok lave en rigtig Null string i stedet for at overføre en string med PChar.
Altså

Var a: array[0..255] of char;

DragQueryFile( Medium.hGlobal, i, a, MAX_PATH);
FFileList.Add(Strpas(a));

Yes sir... så virker det! skal lige bruge et svar fra dig.

Godt du kunne bruge det :))  har selv bøvlet MEGET med overførsel af strings i parameterlister.  Konklusion:  Lad være.