How to import COM interface - IPersistFile?

[Plamen]

Hi ,
I need to change the ToolTip in Windows explorer that is shown when the
cursor is over a file. Here is how it should work: you create a class that
imports IPersistFile and IQueryInfo. After adding some registry values when
you move the cursor over some file in Win Explorer, the shell will create
object from your class and will call IPersistFile::L oad. Well here is the
problem - in my situation it is not called. The only method that is called
from IPersistFile interface is IPersistFile::I sDirty(). Then when IQueryInfo::
GetInfoTip is called I don't have the name of the file that is currently
under the cursor. Here is the code that I use to test. I bound it to txt
files only.
Do I import the IPersistFile interface properly?

namespace ShellExt
{
[ComImport(), ComVisible(true ), InterfaceType(C omInterfaceType .
InterfaceIsIUnk nown), GuidAttribute(" 0000010b-0000-0000-C000-000000000046")]
public interface IPersistFile
{
[PreserveSig()]
void Load(string pszFileName, int dwMode);

[PreserveSig()]
void GetClassID(out Guid pClassID);

[PreserveSig()]
void IsDirty();

[PreserveSig()]
void Save(String pszFileName, bool fRemember);

[PreserveSig()]
void SaveCompleted(S tring pszFileName);

[PreserveSig()]
void GetCurFile(out String ppszFileName);
}

[ComImport(), ComVisible(true ), InterfaceType(C omInterfaceType .
InterfaceIsIUnk nown), GuidAttribute(" 00021500-0000-0000-c000-000000000046")]
public interface IQueryInfo
{
[PreserveSig()]
void GetInfoTip(int flags, ref String toolTip);

[PreserveSig()]
void GetInfoFlags(re f long flags);
}
}

namespace ShellExt
{
/// <summary>
/// Summary description for ToolTipExtensio n.
/// </summary>
///
[Guid("6156C6FC-4DD9-4f82-8200-0446DABB7F35"), ComVisible(true )]
public class ToolTipExtensio n : IPersistFile, IQueryInfo
{
const string guid = "{6156C6FC-4DD9-4f82-8200-0446DABB7F35}";
const int E_NOTIMPL = unchecked((int) 0x80004001);

public IPersistFile persistFile = null;
string fileName = string.Empty;

[PreserveSig()]
void IQueryInfo.GetI nfoTip(int flags, ref string toolTip)
{
if (fileName == String.Empty)
toolTip = "Not working properly!";
else
toolTip = fileName;
}

[PreserveSig()]
void IQueryInfo.GetI nfoFlags(ref long flags)
{
}

#region IPersistFile Members

[PreserveSig()]
void IPersistFile.Lo ad(string pszFileName, int dwMode)
{
this.fileName = pszFileName.ToS tring();
}

[PreserveSig()]
void IPersistFile.Ge tClassID(out Guid pClassID)
{
pClassID = new Guid("6156C6FC-4DD9-4f82-8200-0446DABB7F35");
}

[PreserveSig()]
void IPersistFile.Is Dirty()
{
}

[PreserveSig()]
void IPersistFile.Sa ve(string pszFileName, bool fRemember)
{
}

[PreserveSig()]
void IPersistFile.Sa veCompleted(str ing pszFileName)
{
}

[PreserveSig()]
void IPersistFile.Ge tCurFile(out string ppszFileName)
{
ppszFileName = null;
}

#endregion

#region Registration
[System.Runtime. InteropServices .ComRegisterFun ctionAttribute( )]
static void RegisterServer( String str1)
{
try
{
RegistryKey root;
RegistryKey rk;

root = Registry.Curren tUser;
rk = root.OpenSubKey ("Software\\Mic rosoft\\Windows \\CurrentVersio n\\
Explorer", true);
rk.SetValue("De sktopProcess", 1);
rk.Close();

// For Winnt set me as an approved shellex
root = Registry.LocalM achine;
rk = root.OpenSubKey ("Software\\Mic rosoft\\Windows \\CurrentVersio n\\Shell
Extensions\\App roved", true);
rk.SetValue(gui d, "ShellToolT ip shell extension");
rk.Close();

// Set "Folder\\shelle x\\ContextMenuH andlers\\ShellC md" regkey to my guid
root = Registry.Classe sRoot;
rk = root.CreateSubK ey(".txt\\shell ex\\{00021500-0000-0000-C000-
000000000046}") ;
rk.SetValue("", guid);
rk.Close();
}
catch (Exception e)
{
System.Console. WriteLine(e.ToS tring());
}
}

[System.Runtime. InteropServices .ComUnregisterF unctionAttribut e()]
static void UnregisterServe r(String str1)
{
try
{
RegistryKey root;
RegistryKey rk;

// Remove ShellExtenstion s registration
root = Registry.LocalM achine;
rk = root.OpenSubKey ("Software\\Mic rosoft\\Windows \\CurrentVersio n\\Shell
Extensions\\App roved", true);
rk.DeleteValue( guid);
rk.Close();

// Delete ShellCmd regkey
root = Registry.Classe sRoot;
root.DeleteSubK ey(".txt\\shell ex\\{00021500-0000-0000-C000-000000000046}")
;
}
catch (Exception e)
{
System.Console. WriteLine(e.ToS tring());
}
}
#endregion
}
}

[Michael Nemtsev]

Use www.pinvoke.net to check params of export interfaces

and look there
http://groups.google.com/group/micro...b8557330d81fc7

where some issue was described.

Hi ,
I need to change the ToolTip in Windows explorer that is shown when the
cursor is over a file. Here is how it should work: you create a class that
imports IPersistFile and IQueryInfo. After adding some registry values when
you move the cursor over some file in Win Explorer, the shell will create
object from your class and will call IPersistFile::L oad. Well here is the
problem - in my situation it is not called. The only method that is called
from IPersistFile interface is IPersistFile::I sDirty(). Then when IQueryInfo::
GetInfoTip is called I don't have the name of the file that is currently
under the cursor. Here is the code that I use to test. I bound it to txt
files only.
Do I import the IPersistFile interface properly?

--
WBR,
Michael Nemtsev :: blog: http://spaces.msn.com/laflour

"At times one remains faithful to a cause only because its opponents do not
cease to be insipid." (c) Friedrich Nietzsche