Delphi-Quellcode:
program atkillcon;
{$APPTYPE CONSOLE}
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_NORMAL);
//Bleibt zu hoffen, dass der komplette Paramter in Anführungszeichen übergeben wird
end.
So öffnet ers, findet es aber nicht ... hmm
Muss nur noch simulieren ...