[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 409
  • Last Modified:

How to make an application opening files using DDE

My application is associated with a file type, when the user clicks on a file of this type my application starts and opens that file, if the user redo that, the application will start again resulting two instances of the application. That I want is an example or were I can find info on making my application communicating with explorer using DDE preventing that situation.
Also I want if the user clicks to another file, my program to be able to get the name of the file and open it in the same instance of my program. E.g. MS Word, if you click to open a word file from explorer and word is already running,
word will not run again, but will open the file in the same word instance.
0
HarisIV
Asked:
HarisIV
1 Solution
 
WaldekCommented:
Create a mutex and when mutex already created switch to first instance
0
 
julio011597Commented:
Sorry, may mutexes be global? should this work on both Win16 and Win32?
0
 
WaldekCommented:
Mutex only in Win32 , under Win16 check hInstance <>0
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
julio011597Commented:
Thanks.
0
 
JimBob091197Commented:
Hi

This can (and should) be accomplished using the Registry.  Here's an example that will assign .txt files to your Text Editor, called TEd.exe (written in Delphi) in the directory C:\WhatEver.

1.  Create a .reg file with the following contents, and merge it (R-Click, Merge) with the Registry:  (The first line must be "REGEDIT4".)

REGEDIT4

[HKEY_CLASSES_ROOT\.txt]
@="TextFile"
[HKEY_CLASSES_ROOT\.txt\ShellNew]
NullFile=""
Command="C:\WhatEver\TEd.exe /n"
[HKEY_CLASSES_ROOT\TextFile]
@="Text Document"
[HKEY_CLASSES_ROOT\TextFile\DefaultIcon]
@="C:\WhatEver\TEd.exe,1"
[HKEY_CLASSES_ROOT\TextFile\Shell\Open]
@="&Open"
[HKEY_CLASSES_ROOT\TextFile\Shell\Open\Command]
@="C:\WhatEver\TEd.exe "%1%"
[HKEY_CLASSES_ROOT\TextFile\Shell\Open\ddeexec]
@="Open "%1""
[HKEY_CLASSES_ROOT\TextFile\Shell\Open\ddeexec\Topic]
@="System"


A few notes about the above reg file:
a)  In the reg file, when you see @="..." the @ means that the value is the default value.  (In RegEdit you will often see (Default).  This is entered with the @ char.)

b)  I create a key "HKEY_CLASSES_ROOT\TextFile\Shell\Open"  This means that when a user right-clicks on a text file in Explorer, there will be an "Open" command on the menu.  You can add "Print", etc...

c)  Open the Registry Editor.  Go through the HKEY_CLASSES_ROOT section.  You will see all the different file types that have been registered with Win 95.  Each file type (e.g. ".txt") will have a corresponding description (e.g. TextFile).  That description will also be found in the registry.  E.g.  If the file type is .txt, you will find HKEY_CLASSES_ROOT\.txt with the default value = "TextFile", and you will thus also find HKEY_CLASSES_ROOT\TextFile.
Look around; have fun changing values!!  ;-)  Be careful!


2.  Now, in Delphi, do the following:

Put a TDdeServerConv component (on "System" tab) on main form.
Call it "System".  This is important.  Notice in the above registry file, the ddetopic is "System".  This MUST be the same as the component name, so in Delphi's Object Inspector, set the Name of this TDdeServerConv component to System.

In the OnExecuteMacro event of this component, add this code.  This will allow you to see what Explorer is sending to your app.  You can modify it to open the files, etc...

procedure TForm1.SystemExecuteMacro(Sender: TObject; Msg: TStrings);
var
  i: Integer;
begin
  for i := 0 to Msg.Count - 1 do
    ShowMessage(Msg[i]);
end;


Hope this helps you.

Regards,
JB
0
 
HarisIVAuthor Commented:
Thanks JimBob! Your answer is what I was looking for.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now