Loading a file accourding to the default program

[captian jaster]

How can I open a file with the default program it set to in windows..?(Hope I'm not being confusing.)  

[exdatis]

uses
 ...process
.....
var
  my_pipe : TProcess;
begin
  //proccess
  my_pipe:=TProcess.Create(nil);
  my_pipe.CommandLine:=cmd_value+' my_file';('firefox my.html' :sample)
  my_pipe.Options:=[poUsePipes];
  my_pipe.Execute;
  my_pipe.Free;


p.s. work well(linux, win)

[theo]

http://lazarus-ccr.sourceforge.net/docs/lcl/lclintf/opendocument.html

[captian jaster]

http://lazarus-ccr.sourceforge.net/docs/lcl/lclintf/opendocument.html

It wouldn't find the procedure..

uses
 ...process
.....
var
  my_pipe : TProcess;
begin
  //proccess
  my_pipe:=TProcess.Create(nil);
  my_pipe.CommandLine:=cmd_value+' my_file';('firefox my.html' :sample)
  my_pipe.Options:=[poUsePipes];
  my_pipe.Execute;
  my_pipe.Free;


p.s. work well(linux, win)

It didn't find cmd_Value

[theo]

It wouldn't find the procedure..
...
It didn't find cmd_Value

are you kidding us? 

[seba22]

Don't kill if i'm wrong but in windows you can try.

  my_pipe.CommandLine:='explorer.exe c:\myfile.html';

explorer.exe should pass that myfile.html for default application.

Code: [Select]

explorer.exe c:\a.bmp should run paint, with a.bmp loaded.

[DirkS]

It wouldn't find the procedure..
...
It didn't find cmd_Value

are you kidding us? 

Probably not... OpenDocument is not available in LCL 0.9.28.2 and lower and for TProcess you still need the full path of the executable (and cmd_Value is *not* defined in the code that was posted!).

For Windows you could use ShellExecute (unit Windows):

Code: [Select]

ShellExecute(0, 'open', 'filename', '', nil, SW_SHOWNORMAL);
Gr.
Dirk.

[captian jaster]

It wouldn't find the procedure..
...
It didn't find cmd_Value

are you kidding us? 

Probably not... OpenDocument is not available in LCL 0.9.28.2 and lower and for TProcess you still need the full path of the executable (and cmd_Value is *not* defined in the code that was posted!).

For Windows you could use ShellExecute (unit Windows):

Code: [Select]

ShellExecute(0, 'open', 'filename', '', nil, SW_SHOWNORMAL);
Gr.

Don't kill if i'm wrong but in windows you can try.

  my_pipe.CommandLine:='explorer.exe c:\myfile.html';

explorer.exe should pass that myfile.html for default application.

Code: [Select]

explorer.exe c:\a.bmp should run paint, with a.bmp loaded.

Dirk.

Both of these codes work..
But the WinShell one is faster..
With the explorer.exe it takes a second before it loads up..

[exdatis]

Just set path(control panel, advanced, environment path), add(sample) c:\Program Files\your_exe.
Name of exe is cmd_value(without '.exe'), batch command.

[garlar27]

WinShell: Is cross platform?

OpenDocument: Can launch an application like (for example) "solitaire.exe" without get stuck until "solitaire.exe" is closed?

[typo]

Yes.

ShellExecute is for Windows only.