呵呵,不就是一个字符串分角吗?基本功嘛!一个小例子
....
var
; Form1: TForm1;
Const
; AStr= 'C:/aaa/bbb/eee.exe,1';
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
; i,j:Integer;
; fName,iName :String;
begin
; j:= Length(Astr);//取字符串长
; i:=Pos(',',AStr);//取","位置
; fName := Copy(aStr,1,i-1);//从开头拷到，号前一位
; iName := Copy(aStr,i+1,j-i);//从,号后一位拷到完.
; ShowMessage(Astr +'-> FileName: '+fName+
; ; ;#13#13+' Icon Number :'+IName );
; //取图标序号只要把IName StrToInt就行了嘛。
end;
