Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Pfeile bei Verknüfungen entfernen
JackSnake - So 28.12.03 01:49
Titel: Pfeile bei Verknüfungen entfernen
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.
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:
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
matze - So 28.12.03 12:20
lass mal bei OpenKey das sReg+ weg und schrieb nur das 'inkfile' rein !
und was für ein Logo meinst du ??
JackSnake - So 28.12.03 18:31
Wenn man im Kontextmenü von Arbeitsplatz auf Eigenschaft drauf geht, wird doch im Allgemein ein Logo angezeigt. Das meinte ich.
JackSnake - So 28.12.03 18:48
Ja, ist klappt. Ich war in dem falschen Ordner:
HKey_Classes_Root\Hkey_Classes_Root\lnkfile
Es klappt jetzt. Danke.
matze - Mo 29.12.03 12:33
keine ahnung wo dieses logo gespeichert ist. im zwiefelsfalle mach halt nen screeenshot davon !
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!