易截截图软件、单文件、免安装、纯绿色、仅160KB

急!把delphi代码转换成VC++代码,请高手帮帮忙

procedure TSG_Form.SpeedButton1Click(Sender: TObject);
begin
  CurrentSGWave := (Sender as TSpeedButton).Tag;
  SetupWavePara_Btn.Enabled := True;

  ReDraw_timer.Enabled := False;
  if (CurrentSGWave = 0) or (CurrentSGWave = 6) or (CurrentSGWave = 7) then
  begin
    SetupWavePara_Btn.Enabled := False;
    ReDraw_timer.Enabled := True;
  end;
  if SGSendWave then
  begin
    DownLoad;
    DrawWave(Wave_Pic);
  end
  else
    DrawWave(Wave_Pic);
end;

procedure TSG_Form.TrigerType_CBChange(Sender: TObject);
begin
  case TrigerType_CB.ItemIndex of
    0: SGSetConByte := SGSetConByte and $fb;    // 1111 1011  内触发
    1: SGSetConByte := SGSetConByte or $06;      // 0000 0110  外触发上升沿
    2: begin
        SGSetConByte := SGSetConByte or $04;
        SGSetConByte := SGSetConByte and $fd;  // 1111 1101  外触发下降沿
      end;
  end;
  SetCON(SGSetConByte, 0);
end;

procedure TSG_Form.Frequency_EditExit(Sender: TObject);
begin
  try
    SGFrequency := StrToFloat(F


相关问答:

如何查找系统未安装补丁C - C/C++ / 新手乐园

请问各位高手如何用C/C++获得系统未安装补丁
好像很专业的东西。。。

查注册表
每个补丁如果安装了都会在注册表里面登记

请问能不能更清晰些,我想用c\c++查出来,不好意思,我是新手。还望指教。谢

分值 ......

Delphi 使用shockwaveflash控件的问题

我写了个小程序,上面添加了一个shockwaveflash控件,然后在movie里写入swf文件的路径,然后执行没有问题。
当我把这个程序转移到另一台电脑执行时, shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......

delphi編寫自動更新程序

由于客戶端有的文件經常更新(遠程的,不是局域網),
所以想寫個自動更新的 程序。
看網上的 方法資料,知道些方法,但不知道具體怎么寫。
......

delphi動態調用dll的困惑

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改  
  var  
  ......

delphi中select 的 where后面的id=变量怎么写啊

我的程序中有一段更新某一条记录的语句:
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号