Warum rufst du in schowpas reg.destroy auf? Du erstellst doch gar kein Objekt.
Und etwas Formatierung des Quellcodes würde bestiummt auch gut tun:
Delphi-Quellcode:
function pascan:
string;
var
Reg: TRegistry;
// !!!
begin
Reg := TRegistry.Create(KEY_READ);
// !!!
try // !!!
Reg.Rootkey := HKEY_CLASSES_ROOT;
if Reg.Openkey('
.~pas', False)
then // !!!
begin
Result := Reg.Readstring('
');
Reg.Close;
// !!!
end;
finally // !!!
Reg.Free;
// !!!
end;
end;
procedure showpas;
begin
if pascan = '
~pas auto file'
then
showmessage('
alles ok!');
end;
Dann fällt auch auf, dass du die Variable Reg gar nicht deklariert hast. Desweiteren fehlt der Ressourcenschutzblock und man sollte nie Destroy direkt aufrufen, sondern Objekte immer mit Free freigeben - steht aber auch in der Hilfe.
Ich habe mal so eion paar eklatante Fehler bei dir korrigiert.