MY128的博客

filename:=ExtractFilePath(Paramstr(0)); //取得程序所在的路径

****************要引用Inifiles单元*******************myinifile:Tinifile;//声明myinifile:=Tinifile.create(filename+'set.ini');//打开filename路径下的set.ini文件。myinifile.ReadInteger('dach','ch',0);//读操作myinifile.Writ...

**********************调用单元ShellAPI************************ShellExecute(handle, 'open','c:Project1.exe','',nil, SW_SHOWNORMAL);

///////////////////在窗体的onresize事件中添加/////////////////procedure TF_server.FormResize(Sender: TObject);begin  case WindowState of    wsMinimized: self.Visible:=false;//隐藏  end;end;...

第一步：ColumDefValues->Title->TitleButton设为TRUE  第二步：sortlocal   设为TRUE第三步：OptionsEH->dghautosortmarking设为TRUE 第四步：最后，一定要记得在pas文件的uses里引用上ehlib***，我这里的是ehlibCDS，网上也有的是ehlibBDE。...

Indy的“indy misc”下有一个“TIdIPWatch”组件，可以正确获得本地IP，即使有多块网卡，也可以正确获得真正本地IP。一，引入单元文件“IdIPWatch”。二，实际代码：procedure TMainForm.localIpBtnClick(Sender: TObject);var  IdIPWatch: TIdIPWatch; //TIdIPWatch类实例begin  tr...

1、登录窗口form1,主窗口form2,在form1的create中加下if form2.showmodal <> mrok then Application.Terminate;2、在form1的确定按钮中加入         F_main.Show;        F_dl.Hide;...

  F_main.WindowState :=  wsnormal;//窗体正常化  //窗体重划，激活窗体  Application.Restore;  SetForegroundWindow(Handle);