Funktion aufrufen

[Tommy1988]

Mhh.. s ist dann aber leer die komplette funktion ist diese:

Delphi-Quellcode:

function getAppPath(const App: String): String;
var
  reg: Tregistry;
  path: String;
begin
  reg := Tregistry.Create;
  try
    with reg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
     if openkey('DerKeyHalt' +
App, true) then
      begin
        path := ReadString('Path');
        CloseKey;
        result := path;
      end else
        result := '';
    end;
  finally
    FreeAndNil(reg);
  end;
end;