mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Detect if XML config files have <doublecmd> as root key name.

Browse source
This commit is contained in:
cobines 2012-09-23 14:37:28 +00:00
commit 9bdc7fc2ce
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
components/doublecmd/dcxmlconfig.pas
View file

@ -499,6 +499,8 @@ begin
if FileStream.Size = 0 then
raise EFileEmpty.Create('');
ReadXMLFile(TmpDoc, FileStream, FilenameToURI(AFilename));
if TmpDoc.DocumentElement.NodeName <> ApplicationName then
raise EXMLReadError.Create('Root element is not <' + ApplicationName + '>.');
FDoc.Free;
FDoc := TmpDoc;
finally