遙皇φ ★　その３

>>280の
begin
　RicheditDest.Lines.Add(Copy(RicheditSrc.Lines[i],50,54));
end;
を
begin
　url:=Copy(RicheditSrc.Lines[i],50,54);
　RicheditDest.Lines.Add(url);
　ShellExecute(Handle,'open','C:\Jane\Jane2ch.exe',PChar('-a -b '+url),nil,SW_SHOWDEFAULT);
end;
にしてみるとか。
でもそのまま実行したら(((( ;゜Д゜)))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙなので試してはいないけど…