Start af EXE-filer i Delphi

Du kan bruge ShellExecute :

ShellExecute(Application.Handle,'Open',PChar('program.exe'),nil,nil,SW_SHOW);

Husk at indsætte ShellApi øverst i uses.

:)

JustinCase

En måske lidt nemmer måde:

WinExec('Program.exe',SW_SHOWNORMAL);

Men ellers lige så go' som justincase's måde

Eller hvis du vil have fuld kontrol, så benyt CreateProcess

Her er en genial function, der åbner og venter til programmet er udført:

function AbnOgVent(const Filename, Params: string; WindowState: word):
boolean;
var
  SUInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
begin
 
  CmdLine := '"' + Filename + '"' + Params;

  FillChar(SUInfo, SizeOf(SUInfo), #0);
  with SUInfo do begin
    cb := SizeOf(SUInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WindowState;
  end;

    Result := CreateProcess(NIL, PChar(CmdLine), NIL, NIL,
FALSE,
                  CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
NIL,
                  PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);

    // Vent på at den venter
  if Result then
      WaitForSingleObject(ProcInfo.hProcess, INFINITE);
end;

Denne function understøtter også parametre dette bruges for eksempel hvis man vil have Half-Life til starte op uden forfilm bruges: -console.

Her er en komplet beskrivelse af hvordan du skal gøre:

I den forudbestemte procedure skriver du
" Var command : String;
begin
  command := 'c:\windows\notepad.exe' (hvis det er notepad du vil åbne)
If Winexec(@command[1], SW_shownormal) < 32 THEN
MessagdeDlg('(skriv her en besked som oplyser dig om at programmet ikke kunne åbnes)', mtError, [mbOK], 0);

Findes der flere måde at gøre det på?

der var en fejl i det kolme skrev, men her er det der virker

Her er en komplet beskrivelse af hvordan du skal gøre:

I den forudbestemte procedure skriver du
" Var command : String;
begin
command := 'c:\windows\notepad.exe' (hvis det er notepad du vil åbne)
If Winexec(@command[1], SW_shownormal) < 32 THEN
MessageDlg('(skriv her en besked som oplyser dig om at programmet ikke kunne åbnes)', mtError, [mbOK], 0);

>>Troxa, Hvor er fejlen?

JEg var kommet til at skrive messagdeDlg istedet for messageDlg, men jeg håbede at den ikke ville være til nogen form for gene eftersom det er en fejl af lettere karaktér - men indrømmet der var en fejl

<G> Jeg sad og kikkede mig blind efter fejlen.. Men kunne bare ikke se den.

haha... folk kalder mig nogle gange for en perfektionist... men jeg kan nu ikke lige se hvorfor *g*

Beklager, men jeg får nok mest ud af den nemme løsning.