Eigenes Protokoll , geht nicht :(

[Blumi]

Hallo zusammen

Ich möchte ein eigenes Protkoll registrieren nur kallpt das nicht.

Ich habe das Script von hier:
http://www.swissdelphicenter.ch/de/showcode.php?id=2272

Aber wenn ich das Protokoll in Ausführen eingeben , kommt immer die Meldung 'Anwendung nicht gefunden.' !

Gibt es vll. auch eine andere Funktion?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  Name, Describtion, Executestr: string;
  i: Integer;  
begin
  Name        := 'ccc';
  Describtion := 'Mein Projekt';
  ExecuteStr  := Application.ExeName + '%1';
  RegisterProtocol(Name, Describtion, ExecuteStr);
  for i := 0 to PARAMCOUNT do
    Memo1.Lines.Add(ParamStr(i));
end;

[Chegga]

Hi,

AFAIK darfst du Name nicht als Variable deklarieren
Vielleicht liegt es daran...

MfG Marc

[Blumi]

Nein, leider nicht habe es jetzt gerade mit einer anderen Variable probiert.

Danke trotzdem.

[mirage228]

Hi,

Da fehlt ein Leerzeichen zwischen Pfad und %1

ExecuteStr := Application.ExeName + ' %1'; mfG
mirage228

[Christian Seehase]

Moin Blumi,

bei ExecuteStr fügst Du %1 nahtlos an den Namen der Datei, so dass BlaBla.exe%1 als Anwendung registriert wird
Statt '%1' solltest Du also ' %1' nehmen (also mit Blank davor)

Da der Pfad der Anwendung auch Blanks enthalten kann solltest Du Application.ExeName auch noch in " einklammern:

ExecuteStr := '"'+Application.Exename+'" %1'; Sollte als Parameter auch ein Pfad mit Leerzeichen übergeben werden können, muss auch der Parameter in " eingeklammert werden.

[Blumi]

hi Christian Seehase

cool , danke