[Code]

function GetEMDir(Param: String): String;
var
  EmInstalled: Boolean;
begin
  EmInstalled := RegQueryStringValue (HKLM, 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'EM', Result);

  if (EmInstalled = False) then
    begin
      MsgBox('No valid EiffelMedia Installation found! Please install the EiffelMedia Admin Package first! If You proceed with the Installation all files will be installed into an eiffelmedia-Subdirectory located in the current Directory.', mbError, MB_OK);
      Result := 'eiffelmedia';
    end;
end;