 AlexII hat folgendes geschrieben: |
| Und was heißt in diesem Fall AName und AFilename? |
Das sind Variablen, die an die Funktion übergeben werden, die du von delphi-treff.de übernommen hast.
Ich habe sie deshalb wieder genutzt, damit du diese Zeile in einer Funktion mit der Deklaration
function IsSetAutorunEntry(const AName, AFilename: String; const AKind: TAutorunKind): Boolean;
einfach einsetzen kannst!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| function IsSetAutorunEntry(const AName, AFilename: String; const AKind: TAutorunKind): Boolean;
var
Reg: TRegistry;
begin
Result:=False;
Reg := TRegistry.create;
try
if (AKind=akUserRun) or (AKind=akUserRunOnce) then
Reg.Rootkey:= HKEY_CURRENT_USER
else
Reg.RootKey := HKEY_LOCAL_MACHINE;
case AKind of
akRun, akUserRun : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
akRunOnce, akUserRunOnce: Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
akRunServices : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunServices', True);
akRunServicesOnce : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunServicesOnce', True);
end;
Result := Reg.ReadString(AName) = AFilename;
finally
Reg.Free;
end;
end; |
Noch mehr Hilfe kannst du nun wirklich nicht erwarten. =)
| AlexII hat folgendes geschrieben: |
Ja in meinem Link steht das
Delphi-Quelltext
1:
| CreateAutorunEntry(Application.Title, ParamStr(0), akUserRun); | |
Vielleicht solltest du dir den Programmcode, den du von irgendwo her hast, auch mal anschauen.
