-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
2. Mai 2010
Das kommt bei mir mit der Version von Luckie raus.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
2. Mai 2010
Okay.
Wenn ich dieses Else mit dem ShowMessage(SysErrorMessage(GetLastError))einbaue (obere verzweigung) dann kommt (Key vorhanden, wird aber nicht gefunden) erst: Das Fenster hat keine Bildlaufleisten! und dann Falscher Parameter. Also 2 ShowMessages.
Hilft das weiter?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
function RegCheck():Boolean;
begin
result:= false;
reg:= TRegistry.Create(Key_Read);
try
reg.RootKey:= (HKEY_LOCAL_MACHINE);
try
if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\', False) then
begin
if reg.ValueExists('KeyName') then
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Wenn ich das in die erste Schleife baue, die als einzige nicht funktioniert, kommt: Das System kann die angegebene Datei nicht finden.
Aber irgendwie hab ich mich doch nicht vertippt. Ich habs nochmal von dem funktionierenden Teil mit Copy & Paste übernommen...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Sorry, wenn die Frage vllt verwirrt klingt aber wo denn? Ich habs jetz so zimelich überall versucht aber irgendwie kommt immer: Auf LastError kann hier nicht zugegriffen werden...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Ok jetzt schnall ich das xD
Ich hab mal bei dem Löschen-Prozedre debuggt. Der kommt irgendwie garnicht bei der Schleife an.
Also bei der 2.
Delphi wird mir grad immer unheimlicher..... :D :gruebel:
Bei if reg.ValueExists(value) sollte der ja dann in das begin.....end reingehen aber da kommt der nicht an....
OK Ich erklär mich jetzt mal zum blindesten Menschen der Welt.
Ich hab bei...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Ich brauch das doch später auch nochmal um das ganze aufzurufen, um den Key zulöschen...
Ich hab übrigens grad gesehen, dass ich da versehentlich KeyExists statt OpenKey genommen hab. hab das jetzt mal geändert aber irgendwie gehts immernoch nicht. Also gleiches Problem. und ich hab das eingebaut, was DeddyH oben geschrieben hat. Also mit dem Try und Finally um jede schleife.
Und wie soll...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Ob sowas sicher ist oder nicht lasst lieber meine Sorge sein. Ich bin mir sicher, dass es 100% funktionieren wird, da das Ding einfach schlecht programmiert ist und zumindest das letzte offizielle Build immer die gleichen Sachen benutzt. Dependencies löschen geht schon, die .exe an sich mit Taskkill und on Reboot auch. Einziges Problem ist, dass ich dne Registry-Eintrag beseitigt haben will,...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
100%ig.
Der ist da. Aber irgendwie bekomme ich die Rückgabe: Alles in Ordnung.
Soll eigentlich eine Art Removal Tool für einen bestimmten Virus werden. Einen Trojaner, der sich an einer Stelle mit einem bestimmten Value in die Registry schreibt, nämlich entweder in HKEY_Current_User oder in den Local_Machine. Pfad ist der Selbe.
Ich will nur den Key abfragen und dann in einem 2. Schritt bei...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Ok. funktioniert jetzt beides.
Letztes Manko:
Wenn ich den Schlüssel mit dem Value: KeyName in HKEY_Current_User hab, gehts, und er liefert den richtigen Wert zurück.
Wenn ich den Schlüssel aber in HKEY_Local_Machine (also ein x-wert 1 rauskommen müsste,) kommt nix raus. Findet entweder den Value nicht oder geht garnicht erst in die Schleife.
Das verstehe ich nicht.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Warum denn?
Steht doch drin: Name:= ('HKEY_Current_User.......');
Ja x ist global definiert.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Ich brauch nochmal Rat.
ich hab hier jetzt das hier fabriziert:
function RegCheck():Boolean;
begin
result:= false;
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_Local_Machine;
if reg.KeyExists('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\') then
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Oh. Da war mein code doch mal wieder ein Griff ins Klo. :lol:
Falls ich den Key jetzt bearbeiten wollte, würde es aber reichen, einfach das (KEY_READ) wegzulassen, oder? Und nebenbei falls das Programm dann immer als Administrator gestrtet werden muss, kann man das gleich im Code mitgeben oder abfragen, damit dadurch keine Fehler entstehen?
Danke
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Er gibt mir immer aus, dass der Key nicht vorhanden ist, obwohl er existiert.
Beziehungsweise result ist immer false.
Sorry die Beschreibung oben war missverständlich. Hatte ich garnicht bemerkt.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Jamah,
1. Mai 2010
Moin.
Ich versuche jetzt seit Stunden, mein Programm zum laufen zu bringen aber es will einfach nicht. Es soll einfach nur überprüfen, ob ein Key in der Registry vorhanden ist.
Aber ich habs echt in X verschiedenen Arten getestet, z.B. so:
begin
result:= false;
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_Local_Machine;
if...