Solved

How to make an application opening files using DDE

Posted on 1998-03-15
6
361 Views
Last Modified: 2010-04-06
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
Comment
Question by:HarisIV
6 Comments
 
LVL 2

Expert Comment

by:Waldek
ID: 1360508
Create a mutex and when mutex already created switch to first instance
0
 
LVL 5

Expert Comment

by:julio011597
ID: 1360509
Sorry, may mutexes be global? should this work on both Win16 and Win32?
0
 
LVL 2

Expert Comment

by:Waldek
ID: 1360510
Mutex only in Win32 , under Win16 check hInstance <>0
0
ScreenConnect 6.0 Free Trial

Check out the updates in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI that improves session organization and overall user experience. See the enhancements for yourself!

 
LVL 5

Expert Comment

by:julio011597
ID: 1360511
Thanks.
0
 
LVL 5

Accepted Solution

by:
JimBob091197 earned 210 total points
ID: 1360512
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
 

Author Comment

by:HarisIV
ID: 1360513
Thanks JimBob! Your answer is what I was looking for.
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question