Format "%p" ungültig oder nicht kompatibel mit Arg

[TheMiller]

Hello there!

Folgender Code soll bei angeklickter Checkbox einen Wert in die Registry schreiben und, wenn sie nicht angeklickt ist, diesen Wert, fals vorhanden löschen. Ersteres funktioniert. Das Löschen nicht. Wo liegt mein Fehler??

Delphi-Quellcode:

IF Checkbox1.Checked THEN
try
reg := TRegistry.Create;
begin
reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True) then
  if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
  Reg.WriteString('SPM','C:\Programme\SPM-APPS\bar.exe');
  end;
  finally
  reg.Free;
  end

  ELSE try
  reg := TRegistry.Create;
  begin
  Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
     Reg.DeleteValue('SPM');
     Reg.Destroy;
     end;
  finally
  reg.free;
  end;
  Close;
  end;

Achso, die Fehlermeldung beim Löschen des vorhandenen Eintrages:
Format "%p" ungültig oder nicht kompatibel mit Argument

Also ich verstehe hier nur Bahnhof, aber ich denke, ihr könnt mir helfen.
Der zu löschende Eintrag besteht übrigens in der Registry!

Ciao
DJ-SPM

[Sharky]

Hai DJ-SPM,

ich bin mir nicht sicher ob es daran liegt aber ich habe deinen IF-Block mal in BEGIN-END eingefügt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 reg                : tregistry;
begin
 if Checkbox1.Checked then
  begin
   try
    reg := TRegistry.Create;
    begin
     reg.RootKey := HKEY_LOCAL_MACHINE;
     if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', True) then
      if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
       Reg.WriteString('SPM', 'C:\Programme\SPM-APPS\bar.exe');
    end;
   finally
    reg.Free;
   end;
  end
 else
  begin
   try
    reg := TRegistry.Create;
    begin
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     if (Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True)) then
      begin
       Reg.DeleteValue('SPM');
      end;
    end;
   finally
    reg.free;
   end;
  end;
  Close;
end;

Ausser dem war hier noch ein Fehler.

Delphi-Quellcode:

  ELSE try
  reg := TRegistry.Create;
  begin
  Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
     Reg.DeleteValue('SPM');
     Reg.Destroy;   <-----------------------------
     end;
  finally
  reg.free;         <----------------------------
  end;
  Close;
  end;

Du zerstörst einmal den REG mit Destroy und dannach gibst Du ihn noch einmal mit Free frei.

[Chewie]

Ich kann dir sagen, was der Fehler bedeutet, aber nicht, warum er auftritt:

Der Fehler wird von derr API-Funktion wsprintf (oder auch wvsprintf) gemeldet, wenn in einem Formatstring das Kürzel p verwendet wirrd, obwohl es nicht unterstützt wird. %p stellt die Adresse einer Variablen hexadezimal dar und gibt es erst ab Win2000.

Warum der Fehler an dieser Stelle aber auftritt, kann ich dir auch nicht sagen.

[TheMiller]

danke ihr zwei

klappt alles wunderbar! BIG THX

[Daniel B]

Hai Sharky,

Zitat:

Zitat von Sharky

Du zerstörst einmal den REG mit Destroy und dannach gibst Du ihn noch einmal mit Free frei.

Ich denke das an der Stelle eher ein CloseKey gewünscht war/ist. ;)

Grüsse, Daniel :hi:

[mirage228]

Hi,

mach mal das

Delphi-Quellcode:

Reg.Destroy;

weg und schreib stattdessen ein

Delphi-Quellcode:

Reg.CloseKey;

hin.

Der komplette Code einmal (ein bissle verbessert):

Delphi-Quellcode:

if Checkbox1.Checked then
begin
  try
    reg := TRegistry.Create;
    reg.rootKey := HKEY_LOCAL_MACHINE; // besser wäre HKEY_CURRENT_USER!
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) 
    reg.WriteString('SPM','C:\Programme\SPM-APPS\bar.exe');
    reg.CloseKey;
  finally
    reg.Free;
end else
begin
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE; // besser wäre HKEY_CURRENT_USER!
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    reg.DeleteValue('SPM');
    reg.CloseKey;
  finally
    reg.free;
  end;
  close;
end;

mfG
mirage228

[Sanchez]

hallo erstmal,

Der Fehler "Format "%p" ungültig oder nicht kompatibel mit Argument" bedeutet, dass irgendwas freigegeben wird, was bereits freigegeben ist.

..und hier wird definitiv reg zweimal freigegeben:

Delphi-Quellcode:

  ...
  begin
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
     Reg.DeleteValue('SPM');
     Reg.Destroy;
  end;
  finally
  reg.free;
  end;

.. also wurde die Fehlerursache schon behoben

mfg daniel

[MathiasSimmack]

Zitat:

Zitat von Chewie

Der Fehler wird von derr API-Funktion wsprintf (oder auch wvsprintf) gemeldet, wenn in einem Formatstring das Kürzel p verwendet wirrd, obwohl es nicht unterstützt wird. %p stellt die Adresse einer Variablen hexadezimal dar und gibt es erst ab Win2000.

Ich glaube nicht, dass der Fehler was damit zu tun hat. Aber was ich eigentlich sagen will: man kann auch vorher (unter 9x) die Pointer anzeigen lassen. Wenn ich mich recht erinnere (@Luckie, in irgendeinem deiner Tools haben wir das mal gemacht):

Delphi-Quellcode:

Format('%X',[pointer(x)]);

Angabe aber ohne Gewähr, weil ich´s nicht mehr 100% weiß. Da kann nur Luckie helfen.

[MathiasSimmack]

Ha, ich weiß es wieder. :) Es war in Luckies DLLExports

Delphi-Quellcode:

Format('%.8X', [Integer(DLLInfo.FuncAddresses[i])]);

unter der Voraussetzung, dass -wie in dem Fall- "FuncAddresses" ein Pointer (bzw. ein Pointerarray) ist.

[Chewie]

Auch wenns Offtopic ist:

Ist ja klar, dass es auch so geht.
%p entspricht ja %08X.

Und mit dem Borland-Format gehts ja ohnehin, da die Formatstrings ja selbst implementiert haben.

[MathiasSimmack]

Entschuldige bitte, aber mir war das damals nicht klar. Und da Luckies DLLExports ohne VCL geschrieben wurde, dürfte wohl klar sein, dass dieses Format nicht das von Borland ist.

[TheMiller]

hi

@Mirage228: Hi dein Code funktioniert soweit ganz gut, nur dass bei angeklickter Box das "Close;" net mehr ging. Hier nochmal für alle, die das selbe Problem wie ich haben:

Delphi-Quellcode:

if Checkbox1.Checked then
begin
  try
    reg := TRegistry.Create;
    reg.rootKey := HKEY_LOCAL_MACHINE; // besser wäre HKEY_CURRENT_USER!
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    reg.WriteString('SPM','C:\Programme\SPM-APPS\bar.exe');
    reg.CloseKey;
  finally
    reg.Free;
end;
end
else
begin
  try 
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE; // besser wäre HKEY_CURRENT_USER!
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True); 
    reg.DeleteValue('SPM'); 
    reg.CloseKey;
  finally
    reg.free;
  end;
  end;
  close;
end;

So, und nocheinmal DANKE an alle, die mir bei der Fehlersuche/Fehlerbehebung und beim Verständnis geholfen haben!

[MathiasSimmack]

Ich kapier´s nicht. Warum so umständlich?

Was soll passieren? Abhängig vom Status einer Checkbox soll entweder der Eintrag in die Registry geschrieben oder aus ihr entfernt werden. Richtig? Also, dann sehe ich eigentlich nur zwei Handlungen: Schreiben oder Entfernen. Auf die Registry musst du in beiden Fällen zugreifen.

Dann gibt man dir einen Tipp

Delphi-Quellcode:

// besser wäre HKEY_CURRENT_USER!

und du ignorierst ihn. Auf NT-Systemen (NT, 2000 & XP) dürfen nicht alle Benutzer in den Schlüssel HKEY_LOCAL_MACHINE schreiben. Wenn also jemand dein Programm startet und keine Admin-Rechte hat, dann wird bei ihm der Autostartschlüssel nicht angelegt - egal, wie oft er es versucht. Du hast sogar Glück, dass du den try-finally-Block benutzt, sonst würde sich das Programm auch noch mit einer Fehlermeldung bedanken. Darum HKEY_CURRENT_USER benutzen!

Und zu guter Letzt, was soll das hier:

Delphi-Quellcode:

reg.WriteString('SPM','C:\Programme\SPM-APPS\bar.exe');

Ist "bar.exe" das Programm, das auch den Registryeintrag anlegt oder entfernt? Was passiert dann, wenn es sich in einem anderen Ordner und/oder auf einem anderen Laufwerk befindet? Ich schlage vor, du schaust dir in der Delphi-Hilfe mal "paramstr" an.


Wenn also wirklich noch jemand das selbe Problem wie DJ-SPM hat, dann ist hier eine (wie ich finde) bessere und kürzere Variante:

Delphi-Quellcode:

reg := TRegistry.Create;
if(reg <> nil) then
  with reg do try
    RootKey := HKEY_CURRENT_USER;

    if(OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
      true)) then
    try
      if(Checkbox1.Checked) then WriteString('SPM',paramstr(0))
        else if(ValueExists('SPM')) then
          DeleteValue('SPM');
    finally
      CloseKey;
    end;
  finally
    Free;
  end;

Gruß.

[TheMiller]

Ok,

ganz ruhig... Was gehts du denn gleich so ab? Ich habe das schon richtig gemacht

1. Der jenige, der was in dem Programm einstellt, MUSSAdmin-Rechte haben. Sonst kann ja jeder daherkommen und alles verstellen.

2. Das mit dem Paramstr habe ich nicht gewusst. Das ist aber dennoch KEIN Grund, so sprachlich auszurasten... Ich bin nunmal kein Delphi-Profi..

3. Das Forum ist gemacht worden, um sich auszutauschen und evtl. zu lernen. Aber, wie du sicherlich weisst, macht das Lernen keinen Spaß, wenn man derart behandelt wird

So, und jetzt du deinen Tipps:

Ich werde mir den Befehl "paramstr" mal genauer zu gemüte führen. Danke für den Hinweis...

Ciao

[MathiasSimmack]

Als ich mein Posting schrieb, lag mein Puls weit unterhalb meiner Abgeh-Grenze. Und "sprachlich ausgerastet" bedeutet für mich: unflätige Beschimpfungen, die in eine persönliche Ebene gehen.

Ich weiß nicht ob man so etwas wirklich in meinem Posting findet?

Und meine Kritik richtete sich nicht gegen deine mangelnden oder fehlenden Kenntnisse (immerhin habe ich auch mal angefangen und bin noch lange kein Profi), sondern gegen den umständlichen Weg, den du gegangen bist.

Und Punkt.