hvordan for jeg et program til at starte et andet..

Husk at inkludere shellapi:

uses shellapi;

og i din kodebok skal der stå:

<pre>
If FileExists('C:\\MIN.FIL') then
ShellExecute(handle, Pchar('OPEN'), PChar('c:\\min.fil'), nil, nil, SW_SHOWNORMAL)
</pre>

du skriver:

shellexecute(handle,'open','den fil du vil åbne.exe','mulig parameter',nil,sw_shownormal);

skriver du sw_hide istedet for sw_shownormal bliver programmet skjult og hvor jeg har skrevet mulig parameter kan du skrive de parametre programmet skal startes med hvis ingen skriver du bare nil

hmm ja, du kan jo ligesågodt få hele unit'en

<pre>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
If FileExists('C:\\MIN.FIL') then
ShellExecute(handle, Pchar('OPEN'), PChar('c:\\min.fil'), nil, nil, SW_SHOWNORMAL)
end;

end.

</pre>

Kan man få en lille forklaring?
Med Venlig Hilsen: CHadi
http://chadi.h4f.dk

øøhh.. det virker ikke helt!!?? jeg har bare erstattet "C:\\min.fil" med det rigtige dir.. er der andet jeg skal gøre??

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

øøhh.. det virker ikke helt!!?? jeg har bare erstattet "C:\\min.fil" med det rigtige dir.. er der andet jeg skal gøre??

-=[ HipHopWarrioR ]=-_-=[HipHopGansta]=-

Er du sikker på at du har husket at tilføje ShellApi i uses:

Uses ShellApi??????

For det virker når jeg prøver... Du skal forresten også huske at ændre dir i din IF sætning... Ellers er det jo klart at det ikke duer...

/Mads