BCB 怎么做 可参数运行的程序

[hl0716]

BCB 怎么做 可参数运行的程序

就是程序 运行时给几个参数,程序根据这个参数选择不同的功能运行.



知道的说下,谢谢大家,想知道的 也可以跟贴.我知道后会告诉大家.

[缘中人]

exe获取参数用ParamCount()，ParamStr

if( ParamStr(1) == "a" )
{

}
else if( ParamStr(2) == "b" )
{

}

[hl0716]

exe获取参数用ParamCount()，

这个放那里运行呢

[hl0716]

Delphi提供了访问命令行参数的方便的方式，那就是使用ParamStr和ParamCount函数。其中ParamStr(0)返回的是当前程序名，如C:TESTMYPROG.EXE，ParamStr(1)返回第一个参数，以此类推；ParamCount：应用程序的参数个数 典型用法一、writeln('你输入了',ParamCount,'个参数');典型用法二、if ParamCount<1 then writeln('你输入的参数不够，需要指定一个参数。');典型用法三、var i:integer;beginfor i:=1 to ParamCount do writeln('第',i,'个参数是：',ParamStr(i));end.

[缘中人]

ParamCount程序任何地方都可以调用，是全局函数， 其实就在System.hpp文件里，找不到可以包含此文件即可

[缘中人]

void __fastcall TForm1::tvParamCustomDrawItem(TCustomTreeView *Sender,
      TTreeNode *Node, TCustomDrawState State, bool &DefaultDraw)
{
   if (State.Contains(cdsSelected))
   {
       tvParam->Canvas->Font->Color = clBlue;
       tvParam->Canvas->Brush->Color = clBlack;
   }
   //else
   if (State.Contains(cdsHot))
   {
       tvParam->Canvas->Font->Color = clRed;
       tvParam->Canvas->Font->Style = TFontStyles() <<fsUnderline; //关键是这一句
   }
   else
   {
       tvParam->Canvas->Font->Color = clBlack;
       tvParam->Canvas->Font->Style = TFontStyles() >>fsUnderline; //关键是这二句
   }
}

[缘中人]

sorry，5楼贴错代码了，是另一个帖子的代码

[hl0716]

谢谢大家,搞定了 结贴

[hl0716]

void __fastcall TForm2::FormCreate(TObject *Sender)
{
	//ParamCount()
	int i;
	i=ParamCount();
	Memo1->Lines->Add(IntToStr(i)) ;

}

测试了下 可以