OK, hab ein bißchen was zusammengebastelt:
Code:
Uses ShellAPI;
procedure TMain.FormCreate(Sender: TObject);
var
PHPstring: TStringlist;
PHPoutput: String;
begin
PHPpath := 'php.exe';
PHPfile := 'index.php';
PHPstring.LoadFromFile(PHPfile);
PHPoutput := '>c:\ausgabe.htm';
PHPstring.Text := StringReplace(PHPstring.Text, #13#10, '', [rfReplaceAll]);
ShellExecute(0, nil, PHPpath + ' ' + PHPstring[0] + ' ' + PHPoutput, nil, nil, SW_SHOW);
WebBrowser.Navigate('c:\ausgabe.htm');
end;
Nur leider sagt er bei ShellExecute:
[Fehler] main_unit.pas(89): Inkompatible Typen: 'String' und 'PChar'