]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/msw/mimetype.cpp
Forward port 2.8 fix.
[wxWidgets.git] / src / msw / mimetype.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: src/msw/mimetype.cpp
3// Purpose: classes and functions to manage MIME types
4// Author: Vadim Zeitlin
5// Modified by:
6// Created: 23.09.98
7// RCS-ID: $Id$
8// Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9// Licence: wxWindows licence (part of wxExtra library)
10/////////////////////////////////////////////////////////////////////////////
11
12// for compilers that support precompilation, includes "wx.h".
13#include "wx/wxprec.h"
14
15#ifdef __BORLANDC__
16 #pragma hdrstop
17#endif
18
19#if wxUSE_MIMETYPE
20
21#include "wx/msw/mimetype.h"
22
23#ifndef WX_PRECOMP
24 #include "wx/dynarray.h"
25 #include "wx/string.h"
26 #include "wx/intl.h"
27 #include "wx/log.h"
28 #include "wx/crt.h"
29 #if wxUSE_GUI
30 #include "wx/icon.h"
31 #include "wx/msgdlg.h"
32 #endif
33#endif //WX_PRECOMP
34
35#include "wx/file.h"
36#include "wx/iconloc.h"
37#include "wx/confbase.h"
38
39#ifdef __WXMSW__
40 #include "wx/msw/registry.h"
41 #include "wx/msw/private.h"
42#endif // OS
43
44// other standard headers
45#include <ctype.h>
46
47// in case we're compiling in non-GUI mode
48class WXDLLIMPEXP_FWD_CORE wxIcon;
49
50// These classes use Windows registry to retrieve the required information.
51//
52// Keys used (not all of them are documented, so it might actually stop working
53// in future versions of Windows...):
54// 1. "HKCR\MIME\Database\Content Type" contains subkeys for all known MIME
55// types, each key has a string value "Extension" which gives (dot preceded)
56// extension for the files of this MIME type.
57//
58// 2. "HKCR\.ext" contains
59// a) unnamed value containing the "filetype"
60// b) value "Content Type" containing the MIME type
61//
62// 3. "HKCR\filetype" contains
63// a) unnamed value containing the description
64// b) subkey "DefaultIcon" with single unnamed value giving the icon index in
65// an icon file
66// c) shell\open\command and shell\open\print subkeys containing the commands
67// to open/print the file (the positional parameters are introduced by %1,
68// %2, ... in these strings, we change them to %s ourselves)
69
70// although I don't know of any official documentation which mentions this
71// location, uses it, so it isn't likely to change
72static const wxChar *MIME_DATABASE_KEY = wxT("MIME\\Database\\Content Type\\");
73
74// this function replaces Microsoft %1 with Unix-like %s
75static bool CanonicalizeParams(wxString& command)
76{
77 // transform it from '%1' to '%s' style format string (now also test for %L
78 // as apparently MS started using it as well for the same purpose)
79
80 // NB: we don't make any attempt to verify that the string is valid, i.e.
81 // doesn't contain %2, or second %1 or .... But we do make sure that we
82 // return a string with _exactly_ one '%s'!
83 bool foundFilename = false;
84 size_t len = command.length();
85 for ( size_t n = 0; (n < len) && !foundFilename; n++ )
86 {
87 if ( command[n] == wxT('%') &&
88 (n + 1 < len) &&
89 (command[n + 1] == wxT('1') || command[n + 1] == wxT('L')) )
90 {
91 // replace it with '%s'
92 command[n + 1] = wxT('s');
93
94 foundFilename = true;
95 }
96 }
97
98 return foundFilename;
99}
100
101void wxFileTypeImpl::Init(const wxString& strFileType, const wxString& ext)
102{
103 // VZ: does it? (FIXME)
104 wxCHECK_RET( !ext.empty(), wxT("needs an extension") );
105
106 if ( ext[0u] != wxT('.') ) {
107 m_ext = wxT('.');
108 }
109 m_ext << ext;
110
111 m_strFileType = strFileType;
112 if ( !strFileType ) {
113 m_strFileType = m_ext.AfterFirst('.') + wxT("_auto_file");
114 }
115}
116
117wxString wxFileTypeImpl::GetVerbPath(const wxString& verb) const
118{
119 wxString path;
120 path << m_strFileType << wxT("\\shell\\") << verb << wxT("\\command");
121 return path;
122}
123
124size_t wxFileTypeImpl::GetAllCommands(wxArrayString *verbs,
125 wxArrayString *commands,
126 const wxFileType::MessageParameters& params) const
127{
128 wxCHECK_MSG( !m_ext.empty(), 0, wxT("GetAllCommands() needs an extension") );
129
130 if ( m_strFileType.empty() )
131 {
132 // get it from the registry
133 wxFileTypeImpl *self = wxConstCast(this, wxFileTypeImpl);
134 wxRegKey rkey(wxRegKey::HKCR, m_ext);
135 if ( !rkey.Exists() || !rkey.QueryValue(wxEmptyString, self->m_strFileType) )
136 {
137 wxLogDebug(wxT("Can't get the filetype for extension '%s'."),
138 m_ext.c_str());
139
140 return 0;
141 }
142 }
143
144 // enum all subkeys of HKCR\filetype\shell
145 size_t count = 0;
146 wxRegKey rkey(wxRegKey::HKCR, m_strFileType + wxT("\\shell"));
147 long dummy;
148 wxString verb;
149 bool ok = rkey.GetFirstKey(verb, dummy);
150 while ( ok )
151 {
152 wxString command = wxFileType::ExpandCommand(GetCommand(verb), params);
153
154 // we want the open bverb to eb always the first
155
156 if ( verb.CmpNoCase(wxT("open")) == 0 )
157 {
158 if ( verbs )
159 verbs->Insert(verb, 0);
160 if ( commands )
161 commands->Insert(command, 0);
162 }
163 else // anything else than "open"
164 {
165 if ( verbs )
166 verbs->Add(verb);
167 if ( commands )
168 commands->Add(command);
169 }
170
171 count++;
172
173 ok = rkey.GetNextKey(verb, dummy);
174 }
175
176 return count;
177}
178
179// ----------------------------------------------------------------------------
180// modify the registry database
181// ----------------------------------------------------------------------------
182
183bool wxFileTypeImpl::EnsureExtKeyExists()
184{
185 wxRegKey rkey(wxRegKey::HKCR, m_ext);
186 if ( !rkey.Exists() )
187 {
188 if ( !rkey.Create() || !rkey.SetValue(wxEmptyString, m_strFileType) )
189 {
190 wxLogError(_("Failed to create registry entry for '%s' files."),
191 m_ext.c_str());
192 return false;
193 }
194 }
195
196 return true;
197}
198
199// ----------------------------------------------------------------------------
200// get the command to use
201// ----------------------------------------------------------------------------
202
203static wxString wxFileTypeImplGetCurVer(const wxString& progId)
204{
205 wxRegKey key(wxRegKey::HKCR, progId + wxT("\\CurVer"));
206 if (key.Exists())
207 {
208 wxString value;
209 if (key.QueryValue(wxEmptyString, value))
210 return value;
211 }
212 return progId;
213}
214
215wxString wxFileTypeImpl::GetCommand(const wxString& verb) const
216{
217 // suppress possible error messages
218 wxLogNull nolog;
219 wxString strKey;
220
221 {
222 wxRegKey explorerKey(wxRegKey::HKCU, wxT("Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\") + m_ext);
223 if (explorerKey.Exists())
224 {
225 if (explorerKey.Open(wxRegKey::Read))
226 {
227 if (explorerKey.QueryValue(wxT("Progid"), strKey))
228 {
229 strKey = wxFileTypeImplGetCurVer(strKey);
230 }
231 }
232 }
233 }
234
235 if (!strKey && wxRegKey(wxRegKey::HKCR, m_ext + wxT("\\shell")).Exists())
236 strKey = m_ext;
237
238 if ( !strKey && !m_strFileType.empty())
239 {
240 wxString fileType = wxFileTypeImplGetCurVer(m_strFileType);
241 if (wxRegKey(wxRegKey::HKCR, fileType + wxT("\\shell")).Exists())
242 strKey = fileType;
243 }
244
245 if ( !strKey )
246 {
247 // no info
248 return wxEmptyString;
249 }
250
251 strKey << wxT("\\shell\\") << verb;
252 wxRegKey key(wxRegKey::HKCR, strKey + wxT("\\command"));
253 wxString command;
254 if ( key.Open(wxRegKey::Read) ) {
255 // it's the default value of the key
256 if ( key.QueryValue(wxEmptyString, command) ) {
257 bool foundFilename = CanonicalizeParams(command);
258
259#if wxUSE_IPC
260 // look whether we must issue some DDE requests to the application
261 // (and not just launch it)
262 strKey += wxT("\\DDEExec");
263 wxRegKey keyDDE(wxRegKey::HKCR, strKey);
264 if ( keyDDE.Open(wxRegKey::Read) ) {
265 wxString ddeCommand, ddeServer, ddeTopic;
266 keyDDE.QueryValue(wxEmptyString, ddeCommand);
267 ddeCommand.Replace(wxT("%1"), wxT("%s"));
268
269 wxRegKey keyServer(wxRegKey::HKCR, strKey + wxT("\\Application"));
270 keyServer.QueryValue(wxEmptyString, ddeServer);
271 wxRegKey keyTopic(wxRegKey::HKCR, strKey + wxT("\\Topic"));
272 keyTopic.QueryValue(wxEmptyString, ddeTopic);
273
274 if (ddeTopic.empty())
275 ddeTopic = wxT("System");
276
277 // HACK: we use a special feature of wxExecute which exists
278 // just because we need it here: it will establish DDE
279 // conversation with the program it just launched
280 command.Prepend(wxT("WX_DDE#"));
281 command << wxT('#') << ddeServer
282 << wxT('#') << ddeTopic
283 << wxT('#') << ddeCommand;
284 }
285 else
286#endif // wxUSE_IPC
287 if ( !foundFilename )
288 {
289 // we didn't find any '%1' - the application doesn't know which
290 // file to open (note that we only do it if there is no DDEExec
291 // subkey)
292 //
293 // HACK: append the filename at the end, hope that it will do
294 command << wxT(" %s");
295 }
296 }
297 }
298 //else: no such file type or no value, will return empty string
299
300 return command;
301}
302
303bool
304wxFileTypeImpl::GetOpenCommand(wxString *openCmd,
305 const wxFileType::MessageParameters& params)
306 const
307{
308 wxString cmd = GetCommand(wxT("open"));
309
310 *openCmd = wxFileType::ExpandCommand(cmd, params);
311
312 return !openCmd->empty();
313}
314
315bool
316wxFileTypeImpl::GetPrintCommand(wxString *printCmd,
317 const wxFileType::MessageParameters& params)
318 const
319{
320 wxString cmd = GetCommand(wxT("print"));
321
322 *printCmd = wxFileType::ExpandCommand(cmd, params);
323
324 return !printCmd->empty();
325}
326
327// ----------------------------------------------------------------------------
328// getting other stuff
329// ----------------------------------------------------------------------------
330
331// TODO this function is half implemented
332bool wxFileTypeImpl::GetExtensions(wxArrayString& extensions)
333{
334 if ( m_ext.empty() ) {
335 // the only way to get the list of extensions from the file type is to
336 // scan through all extensions in the registry - too slow...
337 return false;
338 }
339 else {
340 extensions.Empty();
341 extensions.Add(m_ext);
342
343 // it's a lie too, we don't return _all_ extensions...
344 return true;
345 }
346}
347
348bool wxFileTypeImpl::GetMimeType(wxString *mimeType) const
349{
350 // suppress possible error messages
351 wxLogNull nolog;
352 wxRegKey key(wxRegKey::HKCR, m_ext);
353
354 return key.Open(wxRegKey::Read) &&
355 key.QueryValue(wxT("Content Type"), *mimeType);
356}
357
358bool wxFileTypeImpl::GetMimeTypes(wxArrayString& mimeTypes) const
359{
360 wxString s;
361
362 if ( !GetMimeType(&s) )
363 {
364 return false;
365 }
366
367 mimeTypes.Clear();
368 mimeTypes.Add(s);
369 return true;
370}
371
372
373bool wxFileTypeImpl::GetIcon(wxIconLocation *iconLoc) const
374{
375 wxString strIconKey;
376 strIconKey << m_strFileType << wxT("\\DefaultIcon");
377
378 // suppress possible error messages
379 wxLogNull nolog;
380 wxRegKey key(wxRegKey::HKCR, strIconKey);
381
382 if ( key.Open(wxRegKey::Read) ) {
383 wxString strIcon;
384 // it's the default value of the key
385 if ( key.QueryValue(wxEmptyString, strIcon) ) {
386 // the format is the following: <full path to file>, <icon index>
387 // NB: icon index may be negative as well as positive and the full
388 // path may contain the environment variables inside '%'
389 wxString strFullPath = strIcon.BeforeLast(wxT(',')),
390 strIndex = strIcon.AfterLast(wxT(','));
391
392 // index may be omitted, in which case BeforeLast(',') is empty and
393 // AfterLast(',') is the whole string
394 if ( strFullPath.empty() ) {
395 strFullPath = strIndex;
396 strIndex = wxT("0");
397 }
398
399 if ( iconLoc )
400 {
401 iconLoc->SetFileName(wxExpandEnvVars(strFullPath));
402
403 iconLoc->SetIndex(wxAtoi(strIndex));
404 }
405
406 return true;
407 }
408 }
409
410 // no such file type or no value or incorrect icon entry
411 return false;
412}
413
414bool wxFileTypeImpl::GetDescription(wxString *desc) const
415{
416 // suppress possible error messages
417 wxLogNull nolog;
418 wxRegKey key(wxRegKey::HKCR, m_strFileType);
419
420 if ( key.Open(wxRegKey::Read) ) {
421 // it's the default value of the key
422 if ( key.QueryValue(wxEmptyString, *desc) ) {
423 return true;
424 }
425 }
426
427 return false;
428}
429
430// helper function
431wxFileType *
432wxMimeTypesManagerImpl::CreateFileType(const wxString& filetype, const wxString& ext)
433{
434 wxFileType *fileType = new wxFileType;
435 fileType->m_impl->Init(filetype, ext);
436 return fileType;
437}
438
439// extension -> file type
440wxFileType *
441wxMimeTypesManagerImpl::GetFileTypeFromExtension(const wxString& ext)
442{
443 // add the leading point if necessary
444 wxString str;
445 if ( ext[0u] != wxT('.') ) {
446 str = wxT('.');
447 }
448 str << ext;
449
450 // suppress possible error messages
451 wxLogNull nolog;
452
453 bool knownExtension = false;
454
455 wxString strFileType;
456 wxRegKey key(wxRegKey::HKCR, str);
457 if ( key.Open(wxRegKey::Read) ) {
458 // it's the default value of the key
459 if ( key.QueryValue(wxEmptyString, strFileType) ) {
460 // create the new wxFileType object
461 return CreateFileType(strFileType, ext);
462 }
463 else {
464 // this extension doesn't have a filetype, but it's known to the
465 // system and may be has some other useful keys (open command or
466 // content-type), so still return a file type object for it
467 knownExtension = true;
468 }
469 }
470
471 if ( !knownExtension )
472 {
473 // unknown extension
474 return NULL;
475 }
476
477 return CreateFileType(wxEmptyString, ext);
478}
479
480/*
481wxFileType *
482wxMimeTypesManagerImpl::GetOrAllocateFileTypeFromExtension(const wxString& ext)
483{
484 wxFileType *fileType = GetFileTypeFromExtension(ext);
485 if ( !fileType )
486 {
487 fileType = CreateFileType(wxEmptyString, ext);
488 }
489
490 return fileType;
491}
492*/
493
494// MIME type -> extension -> file type
495wxFileType *
496wxMimeTypesManagerImpl::GetFileTypeFromMimeType(const wxString& mimeType)
497{
498 wxString strKey = MIME_DATABASE_KEY;
499 strKey << mimeType;
500
501 // suppress possible error messages
502 wxLogNull nolog;
503
504 wxString ext;
505 wxRegKey key(wxRegKey::HKCR, strKey);
506 if ( key.Open(wxRegKey::Read) ) {
507 if ( key.QueryValue(wxT("Extension"), ext) ) {
508 return GetFileTypeFromExtension(ext);
509 }
510 }
511
512 // unknown MIME type
513 return NULL;
514}
515
516size_t wxMimeTypesManagerImpl::EnumAllFileTypes(wxArrayString& mimetypes)
517{
518 // enumerate all keys under MIME_DATABASE_KEY
519 wxRegKey key(wxRegKey::HKCR, MIME_DATABASE_KEY);
520
521 wxString type;
522 long cookie;
523 bool cont = key.GetFirstKey(type, cookie);
524 while ( cont )
525 {
526 mimetypes.Add(type);
527
528 cont = key.GetNextKey(type, cookie);
529 }
530
531 return mimetypes.GetCount();
532}
533
534// ----------------------------------------------------------------------------
535// create a new association
536// ----------------------------------------------------------------------------
537
538wxFileType *wxMimeTypesManagerImpl::Associate(const wxFileTypeInfo& ftInfo)
539{
540 wxCHECK_MSG( !ftInfo.GetExtensions().empty(), NULL,
541 wxT("Associate() needs extension") );
542
543 bool ok;
544 size_t iExtCount = 0;
545 wxString filetype;
546 wxString extWithDot;
547
548 wxString ext = ftInfo.GetExtensions()[iExtCount];
549
550 wxCHECK_MSG( !ext.empty(), NULL,
551 wxT("Associate() needs non empty extension") );
552
553 if ( ext[0u] != wxT('.') )
554 extWithDot = wxT('.');
555 extWithDot += ext;
556
557 // start by setting the HKCR\\.ext entries
558 // default is filetype; content type is mimetype
559 const wxString& filetypeOrig = ftInfo.GetShortDesc();
560
561 wxRegKey key(wxRegKey::HKCR, extWithDot);
562 if ( !key.Exists() )
563 {
564 // create the mapping from the extension to the filetype
565 ok = key.Create();
566 if ( ok )
567 {
568
569 if ( filetypeOrig.empty() )
570 {
571 // make it up from the extension
572 filetype << extWithDot.c_str() + 1 << wxT("_file");
573 }
574 else
575 {
576 // just use the provided one
577 filetype = filetypeOrig;
578 }
579
580 key.SetValue(wxEmptyString, filetype);
581 }
582 }
583 else
584 {
585 // key already exists, maybe we want to change it ??
586 if (!filetypeOrig.empty())
587 {
588 filetype = filetypeOrig;
589 key.SetValue(wxEmptyString, filetype);
590 }
591 else
592 {
593 key.QueryValue(wxEmptyString, filetype);
594 }
595 }
596
597 // now set a mimetypeif we have it, but ignore it if none
598 const wxString& mimetype = ftInfo.GetMimeType();
599 if ( !mimetype.empty() )
600 {
601 // set the MIME type
602 ok = key.SetValue(wxT("Content Type"), mimetype);
603
604 if ( ok )
605 {
606 // create the MIME key
607 wxString strKey = MIME_DATABASE_KEY;
608 strKey << mimetype;
609 wxRegKey keyMIME(wxRegKey::HKCR, strKey);
610 ok = keyMIME.Create();
611
612 if ( ok )
613 {
614 // and provide a back link to the extension
615 keyMIME.SetValue(wxT("Extension"), extWithDot);
616 }
617 }
618 }
619
620
621 // now make other extensions have the same filetype
622
623 for (iExtCount=1; iExtCount < ftInfo.GetExtensionsCount(); iExtCount++ )
624 {
625 ext = ftInfo.GetExtensions()[iExtCount];
626 if ( ext[0u] != wxT('.') )
627 extWithDot = wxT('.');
628 extWithDot += ext;
629
630 wxRegKey key(wxRegKey::HKCR, extWithDot);
631 if ( !key.Exists() ) key.Create();
632 key.SetValue(wxEmptyString, filetype);
633
634 // now set any mimetypes we may have, but ignore it if none
635 const wxString& mimetype = ftInfo.GetMimeType();
636 if ( !mimetype.empty() )
637 {
638 // set the MIME type
639 ok = key.SetValue(wxT("Content Type"), mimetype);
640
641 if ( ok )
642 {
643 // create the MIME key
644 wxString strKey = MIME_DATABASE_KEY;
645 strKey << mimetype;
646 wxRegKey keyMIME(wxRegKey::HKCR, strKey);
647 ok = keyMIME.Create();
648
649 if ( ok )
650 {
651 // and provide a back link to the extension
652 keyMIME.SetValue(wxT("Extension"), extWithDot);
653 }
654 }
655 }
656
657 } // end of for loop; all extensions now point to HKCR\.ext\Default
658
659 // create the filetype key itself (it will be empty for now, but
660 // SetCommand(), SetDefaultIcon() &c will use it later)
661 wxRegKey keyFT(wxRegKey::HKCR, filetype);
662 keyFT.Create();
663
664 wxFileType *ft = CreateFileType(filetype, extWithDot);
665
666 if (ft)
667 {
668 if (! ftInfo.GetOpenCommand ().empty() ) ft->SetCommand (ftInfo.GetOpenCommand (), wxT("open" ) );
669 if (! ftInfo.GetPrintCommand().empty() ) ft->SetCommand (ftInfo.GetPrintCommand(), wxT("print" ) );
670 // chris: I don't like the ->m_impl-> here FIX this ??
671 if (! ftInfo.GetDescription ().empty() ) ft->m_impl->SetDescription (ftInfo.GetDescription ()) ;
672 if (! ftInfo.GetIconFile().empty() ) ft->SetDefaultIcon (ftInfo.GetIconFile(), ftInfo.GetIconIndex() );
673
674 }
675
676 return ft;
677}
678
679bool wxFileTypeImpl::SetCommand(const wxString& cmd,
680 const wxString& verb,
681 bool WXUNUSED(overwriteprompt))
682{
683 wxCHECK_MSG( !m_ext.empty() && !verb.empty(), false,
684 wxT("SetCommand() needs an extension and a verb") );
685
686 if ( !EnsureExtKeyExists() )
687 return false;
688
689 wxRegKey rkey(wxRegKey::HKCR, GetVerbPath(verb));
690#if 0
691 if ( rkey.Exists() && overwriteprompt )
692 {
693#if wxUSE_GUI
694 wxString old;
695 rkey.QueryValue(wxEmptyString, old);
696 if ( wxMessageBox
697 (
698 wxString::Format(
699 _("Do you want to overwrite the command used to %s "
700 "files with extension \"%s\" ?\nCurrent value is \n%s, "
701 "\nNew value is \n%s %1"), // bug here FIX need %1 ??
702 verb.c_str(),
703 m_ext.c_str(),
704 old.c_str(),
705 cmd.c_str()),
706 _("Confirm registry update"),
707 wxYES_NO | wxICON_QUESTION
708 ) != wxYES )
709#endif // wxUSE_GUI
710 {
711 // cancelled by user
712 return false;
713 }
714 }
715#endif
716 // TODO:
717 // 1. translate '%s' to '%1' instead of always adding it
718 // 2. create DDEExec value if needed (undo GetCommand)
719 return rkey.Create() && rkey.SetValue(wxEmptyString, cmd + wxT(" \"%1\"") );
720}
721
722/* // no longer used
723bool wxFileTypeImpl::SetMimeType(const wxString& mimeTypeOrig)
724{
725 wxCHECK_MSG( !m_ext.empty(), false, wxT("SetMimeType() needs extension") );
726
727 if ( !EnsureExtKeyExists() )
728 return false;
729
730 // VZ: is this really useful? (FIXME)
731 wxString mimeType;
732 if ( !mimeTypeOrig )
733 {
734 // make up a default value for it
735 wxString cmd;
736 wxFileName::SplitPath(GetCommand(wxT("open")), NULL, &cmd, NULL);
737 mimeType << wxT("application/x-") << cmd;
738 }
739 else
740 {
741 mimeType = mimeTypeOrig;
742 }
743
744 wxRegKey rkey(wxRegKey::HKCR, m_ext);
745 return rkey.Create() && rkey.SetValue(wxT("Content Type"), mimeType);
746}
747*/
748
749bool wxFileTypeImpl::SetDefaultIcon(const wxString& cmd, int index)
750{
751 wxCHECK_MSG( !m_ext.empty(), false, wxT("SetDefaultIcon() needs extension") );
752 wxCHECK_MSG( !m_strFileType.empty(), false, wxT("File key not found") );
753// the next line fails on a SMBshare, I think because it is case mangled
754// wxCHECK_MSG( !wxFileExists(cmd), false, wxT("Icon file not found.") );
755
756 if ( !EnsureExtKeyExists() )
757 return false;
758
759 wxRegKey rkey(wxRegKey::HKCR, m_strFileType + wxT("\\DefaultIcon"));
760
761 return rkey.Create() &&
762 rkey.SetValue(wxEmptyString,
763 wxString::Format(wxT("%s,%d"), cmd.c_str(), index));
764}
765
766bool wxFileTypeImpl::SetDescription (const wxString& desc)
767{
768 wxCHECK_MSG( !m_strFileType.empty(), false, wxT("File key not found") );
769 wxCHECK_MSG( !desc.empty(), false, wxT("No file description supplied") );
770
771 if ( !EnsureExtKeyExists() )
772 return false;
773
774 wxRegKey rkey(wxRegKey::HKCR, m_strFileType );
775
776 return rkey.Create() &&
777 rkey.SetValue(wxEmptyString, desc);
778}
779
780// ----------------------------------------------------------------------------
781// remove file association
782// ----------------------------------------------------------------------------
783
784bool wxFileTypeImpl::Unassociate()
785{
786 bool result = true;
787 if ( !RemoveOpenCommand() )
788 result = false;
789 if ( !RemoveDefaultIcon() )
790 result = false;
791 if ( !RemoveMimeType() )
792 result = false;
793 if ( !RemoveDescription() )
794 result = false;
795
796/*
797 //this might hold other keys, eg some have CSLID keys
798 if ( result )
799 {
800 // delete the root key
801 wxRegKey key(wxRegKey::HKCR, m_ext);
802 if ( key.Exists() )
803 result = key.DeleteSelf();
804 }
805*/
806 return result;
807}
808
809bool wxFileTypeImpl::RemoveOpenCommand()
810{
811 return RemoveCommand(wxT("open"));
812}
813
814bool wxFileTypeImpl::RemoveCommand(const wxString& verb)
815{
816 wxCHECK_MSG( !m_ext.empty() && !verb.empty(), false,
817 wxT("RemoveCommand() needs an extension and a verb") );
818
819 wxRegKey rkey(wxRegKey::HKCR, GetVerbPath(verb));
820
821 // if the key already doesn't exist, it's a success
822 return !rkey.Exists() || rkey.DeleteSelf();
823}
824
825bool wxFileTypeImpl::RemoveMimeType()
826{
827 wxCHECK_MSG( !m_ext.empty(), false, wxT("RemoveMimeType() needs extension") );
828
829 wxRegKey rkey(wxRegKey::HKCR, m_ext);
830 return !rkey.Exists() || rkey.DeleteSelf();
831}
832
833bool wxFileTypeImpl::RemoveDefaultIcon()
834{
835 wxCHECK_MSG( !m_ext.empty(), false,
836 wxT("RemoveDefaultIcon() needs extension") );
837
838 wxRegKey rkey (wxRegKey::HKCR, m_strFileType + wxT("\\DefaultIcon"));
839 return !rkey.Exists() || rkey.DeleteSelf();
840}
841
842bool wxFileTypeImpl::RemoveDescription()
843{
844 wxCHECK_MSG( !m_ext.empty(), false,
845 wxT("RemoveDescription() needs extension") );
846
847 wxRegKey rkey (wxRegKey::HKCR, m_strFileType );
848 return !rkey.Exists() || rkey.DeleteSelf();
849}
850
851#endif // wxUSE_MIMETYPE