小编Mad*_*iha的帖子

我想在我的FTP服务器上获取当前的Dir.我知道我可以切换Dir idFtp1.ChangeDir('MyDirectory); 但是如何检查我是否已经进入了这个Dir？

如何在计算机上获取所有可用的网络摄像头驱动程序？我想在组合框中显示驱动程序.

我使用此代码制作屏幕截图:

function GetScreenShot: TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try
      Result.PixelFormat := pf32bit;
      Result.Width := Screen.Width;
      Result.Height := Screen.Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, 
        Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap := GetScreenShot;
end;

现在我想问一下如何改变质量.例如,我可以选择25%,50%,75%和100%.

我怎么能在我的代码中实现它？