Re: About lauching files on Win98

[Stephane Perret <Stephane.Perret@maths.unine.ch>]

Good, it works perfectly.
Thank you.
Stephane.

Joachim Schroeer wrote:
> 
> Hello,
> 
> I have this procedure for launching an exe from a  windows program (gui, not
> console).
> 
> with Win32.Windef, Win32.Shellapi, Win32.Winuser, Interfaces.C;
> ...
> package ...
> 
>   procedure Start_Application(Executable : in String;
>                               Parameter  : in String := "") is
> 
>     C_Operation  : aliased Interfaces.C.Char_Array :=
>                            Interfaces.C.To_C("open");
>     C_Executable : aliased Interfaces.C.Char_Array :=
>                            Interfaces.C.To_C(Executable);
>     C_Parameter  : aliased Interfaces.C.Char_Array :=
>                            Interfaces.C.To_C(Parameter);
>     Exe : Win32.Windef.Hinstance;
>   begin
>     Exe := Win32.Shellapi.Shellexecute
>       (Hwnd         => Win32.Winuser.Getfocus,
>       Lpoperation  => C_Operation (C_Operation'First)'Unchecked_Access,
>        Lpfile       => C_Executable(C_Executable'First)'Unchecked_Access,
>       Lpparameters => C_Parameter (C_Parameter'First)'Unchecked_Access,
>       Lpdirectory  => null,
>       Nshowcmd     => Win32.Winuser.Sw_Shownormal);
>   end Start_Application;
> 
> Best regards
>     J. Schr�er

-- 
_________________________________
http://members.xoom.com/s_perret/

"Unless you're prepared to care for something, you don't deserve to have it."