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.
HarisIVAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

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
Become a CompTIA Certified Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

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

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
HarisIVAuthor Commented:
Thanks JimBob! Your answer is what I was looking for.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.