VAR
LUJING:ansistring ;
begin
if hWndC <> 0 then
begin
LUJING:='2.BMP';
//SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(string(LUJING)));
SendMessage(hWndC,WM_CAP_SAVEDIB,0,LongInt(LUJING));
BmpToJpg('2.BMP');
// CopyFile('e','e:\2.bmp',False);
end;
我自己屌丝了一回,在XE版本里加了句代码CopyFile('C','C:\我是复制的图片.jpg',False);,于是,间接实现了正确路径和名称
procedure TForm1.BitBtn2Click(Sender: TObject);
var
LUJING : PChar;
begin
if hWndC <> 0 then
begin
LUJING:='C:\2.BMP';
//SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(string(LUJING)));
SendMessage(hWndC,WM_CAP_SAVEDIB,0,LongInt(LUJING));
CopyFile('C','C:\我是复制的图片.jpg',False);
end;