procedure TxltjFram.dxDBGrid2PhotoButtonClick(Sender: TObject;

  AbsoluteIndex: Integer); var   strPath, str, D: string; // 文件路径 begin   inherited;   strPath := dxDBGrid2.ColumnByFieldName('Photo').Field.AsString;   str := StringReplace(strPath, '/', '\', [rfReplaceAll]);

// D := copy(str, 2, length(str) - 1);

  ShellExecute(Handle, 'open', 'Explorer.exe', PAnsiChar('D:' + str), nil, 1); //('F:\WebProject\ProProWebTF' +str), nil, 1);// end;