ShellExecute will nicht :/ [Anfänger vs. Delphi ;)]

[Neutral General]

Delphi-Quellcode:

procedure ReplaceStr(Source : String; Original : String; Replace : String; var Dest : String);
var Posi : Integer;
begin
 while pos(Original,Source) <> 0 do begin
  if pos(Original,Source) > 0 then begin
   Posi := pos(Original,Source);
   delete(Source,pos(Original,Source),Length(Original));
   insert(Replace,Source,posi);
  end;
   Dest := Source;
 end;
end;

Kann sein das sowas Delphi Schon mitliefert aber habs auch mal selber gemacht.

ReplaceStr(String,'%SystemRoot%','C:\Windows',String); Ausgegangen das C:\Windows das Systemverzeichniss ist, was aber normalerweise der Fall ist.
Ok ich muss zugeben meine procedure ist etwas umständlich und das wäre mit ner Funktion besser geregelt aber die hab ich vor langer Zeit geschrieben wo ich noch nicht sooo viel Ahnung hatte