AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi [Kontextmenü] - Pfad in einem Parameter übergeben

[Kontextmenü] - Pfad in einem Parameter übergeben

Ein Thema von xZise · begonnen am 15. Dez 2006 · letzter Beitrag vom 15. Dez 2006
Antwort Antwort
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

[Kontextmenü] - Pfad in einem Parameter übergeben

  Alt 15. Dez 2006, 15:42
Ich erstelle einen Eintrag in der Registry, für das Kontextmenü.

Und wenn das ausgeführt wird, dann muss ich immer die Teilparamter zusammenpflicken.
Was muss ich ändern, damit der ganze Pfad (mit den Leerzeichen) in einem Paramter übergeben wird?
reg.WriteString('', '"' + ParamStr(0) + '" %1');
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: [Kontextmenü] - Pfad in einem Parameter übergeben

  Alt 15. Dez 2006, 15:56
Moin Fabian,

auch das %1 muss in "" eingeschlossen werden.

reg.WriteString('', '"' + ParamStr(0) + '" "%1"');
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#3

Re: [Kontextmenü] - Pfad in einem Parameter übergeben

  Alt 15. Dez 2006, 15:59
Also dann springt er nicht mehr korrekt an:

Delphi-Quellcode:
program FileLink;

uses
  Forms, ClipBrd, SysUtils,
  uMain in 'uMain.pas{Form1};

{$R *.res}

var
  i : Integer;
begin
  Application.Initialize;

  if ParamCount > 1 then begin
    Clipboard.AsText := ParamStr(1);
    for i := 2 to ParamCount do
      Clipboard.AsText := Clipboard.AsText + ' ' + ParamStr(i);
  end;

  if (not FileExists(Clipboard.AsText)) or (ParamCount = 1) then begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.
Entweder der Pfad ist dann falsch, oder es gibt nur einen Paramter (obwohl der ja der Parameter des Programms ist...)
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: [Kontextmenü] - Pfad in einem Parameter übergeben

  Alt 15. Dez 2006, 16:05
Moin Fabian,

was steht denn dann in Paramstr(1).

BTW: Das zusammenbasteln kannst Du dann auch weglassen.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#5

Re: [Kontextmenü] - Pfad in einem Parameter übergeben

  Alt 15. Dez 2006, 16:31
Also die ParamCount ist nicht größer 1 ? o.O Dabei ist doch ParamStr(0) immer ?

BTW: Ich weiß das ich es dann lassen kann Um genau zu sein, dass war der grund, warum ich fragte

Also wenn ich immer statt bei "ParamCount" 1 eine 0 schreibe gehts lol Das muss man mal kapieren ^^
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: [Kontextmenü] - Pfad in einem Parameter übergeben

  Alt 15. Dez 2006, 16:41
Moin Fabian,

ParamStr(0) enthält immer den Pfad des Programmes, ist, inhaltlich, identisch mit Application.Exename.

Bei Deinem Beispiel sollte ParamStr(1) den übergebenen Pfad enthalten, oder einen Leerstring, falls kein Pfad übergeben wurde (z.B. Direktaufruf des Programmes).

Was Du allerdings mit dem Clipboard willst ist mir ein Rätsel.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#7

Re: [Kontextmenü] - Pfad in einem Parameter übergeben

  Alt 15. Dez 2006, 16:50
Das will ich mit Clipbrd

Aber draum ging es mir nicht, sondern darum, dass ja ParamStr(0) ja auch ein "Paramter" ist Jedenfalls laut funktionsaufruf Und deshlab habe ich angenommen, dass die auch zu ParamCount aufgenommen wird.
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz