Hallo,
ich hab folgendes Problem: ich will ein Programm schreiben, das die Pfeile bei Verknüpfungen entfernt. Manuell funktioniert es wunderbar, aber mit dem Programm wird der Wert weder gelöscht noch hinzugefügt.
Weiß jetzt nicht, woran das liegt. Hoffe, ihr könnt mir helfen.
Danke.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
| implementation
uses Registry;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const sReg='HKey_Classes_Root';
begin
with TRegistry.Create do
try
RootKey:=HKey_Classes_Root;
if OpenKey(sReg+'\lnkfile\',True)
then begin
DeleteValue('IsShortCut');
CloseKey;
end;
finally;
Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
const sReg='HKey_Classes_Root';
begin
with TRegistry.Create do
try
RootKey:=HKey_Classes_Root;
if OpenKey(sReg+'\lnkfile\',True)
then begin
WriteString('IsShortCut','');
CloseKey;
end;
finally;
Free;
end;
end; |
Noch was, weiß jemand, wo das Logo von WindowsXP ist und wie es heißt?
Moderiert von 
UGrohne: Code- durch Delphi-Tags ersetzt
