Übergabestring bearbeiten.

[Dani]

Delphi-Quellcode:

program SendToWordpad;

uses
 SysUtils,
 Windows,
 ShellApi;

function TrimAtDoubleAt(s: String): String;
var iPos: Integer;
begin
 Result := s;
 iPos := pos('@@', s);
 If iPos>0 then
  Result := copy(s, 1, iPos-1);
end;

begin
 ShellExecute(0, 'open', PChar( TrimAtDoubleAt( ParamStr(1) ) ), nil, nil, SW_SHOWNORMAL);
 //Bleibt zu hoffen, dass der komplette Paramter in Anführungszeichen übergeben wird
end;