（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

{ファイル名にカンマが含まれていたらアウト。}

S := '';
for i:=1 to ParamCount-1 do
begin
　{ドライブが含まれるなら直前までをファイル名とみなす}
　if ExtractFileDrive( ParamStr(i) ) <> '' then
　begin
　　if S <> '' then FileNames.Add( S );
　end
　else
　　S := S + ' ' + ParamStr(i);
end;