delphi图片查看

2017-10-26 09:49:57来源:oschina作者:小砍侃人点击

分享

procedure TxltjFram.dxDBGrid2PhotoButtonClick(Sender: TObject;AbsoluteIndex: Integer); varstrPath, str, D: string; // 文件路径 begininherited;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;

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台