Exec.

Prøv med

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp : pchar;
begin
  shellexecute(handle, \'open\', \'filnavn\',tmp,\'sti-til-filnavn\',SW_SHOW);
end;

Husk

Uses
  ShellAPI;

I øvrigt kan din tmp variabel erstattes af et nil.

altså :

procedure TForm1.Button1Click(Sender: TObject);
begin
  shellexecute(handle, \'open\', \'filnavn\',nil,\'sti-til-filnavn\',SW_SHOW);
end;
kan også udformes som en funktion :

uses
  ShellAPi;

Function RunFile(const FileName : TFileName) : Integer;
begin
  Result := ShellExecute(0, \'open\', PChar(FileName),nil,nil,SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RunFile(\'C:\\Hest.txt\');
end;


Jens B

Du kan også bruge:

Procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(\'c:\\dit_program.exe\',1);
end;
end.

Til Borrisholt:
Det sidste i den sætning du skrev, kunne JEG nu også godt bruge... Hvordan bærer du dig ad med at hjælpe flere end 1 på én gang???

LSN

LSN >> Hvordan bærer jeg admed hvad ? Jeg forstår ikke hvad du spørger om ?

Jens B

Glem det bare, Jens Borrisholt...

Tak for tippet, det virkede.

bendt_lauritsen  >> Så må du meget gerne lukke spørgsmålet ?

Jens B