Thema
:
Delphi
Variant Problem...
Einzelnen Beitrag anzeigen
Sourcemaker
Registriert seit: 3. Sep 2003
Ort: Westoverledingen
264 Beiträge
Delphi 11 Alexandria
#
3
Re: Variant Problem...
11. Jan 2005, 10:45
Oder so:
zusammenfalten
·
markieren
Delphi-Quellcode:
function
StrToKey(
var
AString: Variant): boolean;
begin
result := false;
if
AString = '
HKCU
'
then
begin
AString := HKEY_CURRENT_USER;
result := true;
end
else
if
AString = '
HKLM
'
then
begin
AString := HKEY_LOCAL_MACHINE;
result := true;
end
else
if
AString = '
HKU
'
then
begin
AString := HKEY_USERS;
result := true;
end
else
if
AString = '
HKCC
'
then
begin
AString := HKEY_CURRENT_CONFIG;
result := true;
end
else
if
AString = '
HKCR
'
then
begin
AString := HKEY_CLASSES_ROOT;
result := true;
end
;
end
;
Grüße
Frank
Frank
Zitat
Sourcemaker
Öffentliches Profil ansehen
Mehr Beiträge von Sourcemaker finden