Delphi app Command Line
Posted by Joey on February 08, 2004 at 18:08:07:
Heya. I am using the following code to allow command lines to be run into my Delphi app.
procedure TForm1.FormShow(Sender: TObject); begin Memo1.Clear; if ParamCount > 0 then begin case ParamCount of 1: Memo1.Lines.LoadFromFile(Paramstr(1)); else begin ShowMessage('Invalid Parameters'); Application.Terminate; end; end; end;
The code i am using is slightly different so that it opens into a listbox but this is the basis around it.
The problem is that i am only allowing on instance of my application to open as it uses mass's of memory to transfer files realy fast so if this happened twice on a computer it would just be crazy. And when i drag the item on it opens the app and opens the file. Yet if i run the command line and the app is already open it does nothing just refocuses on the app... Is there away to optimise my code or add a new procedure to the form so that it will open it even if its already open?? Thx