Datei auf dem Betriebssystem ausführen

ID44
Link ReferenceNot set
Link CreditsNot set
Link Technical DocumentationNot set
PlCodelangDelphi
PlGroupFilehandling
PlItemTitleDatei auf dem Betriebssystem ausführen
Codeprocedure TForm1.MenuDummy1Click(Sender: TObject);
var
ExeName : array[0..255] of char;
myFile : String;
begin
myFile:='winword.exe';
Showmessage('Starte: ' + myFile);
StrPCopy(ExeName, myFile);
ShellExecute(MainForm.Handle, 'open', ExeName, nil, nil, SW_SHOWNORMAL);
// Drucken geht dann so (siehe auch Dateitypen im Windows Explorer):
ShellExecute(MainForm.Handle, 'print', ExeName, nil, nil, SW_SHOWNORMAL);
end;
Result Example