《用delphi开发共享软件》-15.2桌面提示器

打开一个配置文件：

打开一个配置文件

操作TStringGrid

 Procedure EmptyGrid(Var sg:TStringGrid);
 Var i:Integer;
 begin
 for i:= to sg.RowCount - do
 sg.Rows[i].clear;
 sg.RowCount :=;
 end;

 Procedure SetGridTitle(Var SG:TStringGrid; sTil:array of String);
 Var i,l,h:integer;
 begin
 l:=Low(sTil);
 h:=High(sTil);
 if sg.ColCount<h-l+ then sg.ColCount:=h-l+;
 for i:= to sg.ColCount - do
 begin
 sg.Cells[i,]:=sTil[l+i];
 if i>h then Exit;
 end;
 end;

 Procedure SetGridNumber(Var SG:TStringGrid;
 Col,bn,len:Integer;ch:Char);
 Var i:integer;
 begin
 for i:= to sg.RowCount - do
 begin
 sg.Cells[Col,i]:=Format('%d',[bn+i-]);
 sg.Cells[Col,i]:=Padl(sg.Cells[Col,i],ch,len);
 end;
 end;

操作TStringGrid

 procedure TFrmPara.WriteParameters;
 Var s:String;
 begin
 DelOneDevice(MYINI,'关机时间');
 WriteGridToINI(MYINI,'关机时间',sgTime);
 DelOneDevice(MYINI,'桌面图片');
 WriteGridToINI(MYINI,'桌面图片',sgPic);
 DelOneDevice(MYINI,'背景音乐');
 WriteGridToINI(MYINI,'背景音乐',sgSong);
 DelOneDevice(MYINI,'桌面提示');
 WriteGridToINI(MYINI,'桌面提示',sgHint);
 DelOneDevice(MYINI,'定时提示');
 WriteGridToINI(MYINI,'定时提示',sgNote);

 WriteOnePara(MYINI,'SHUTDOWN','chkSrvShutDown',BoolStr(chkSrvShutDown.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkShutAfterATime',BoolStr(chkShutAfterATime.checked));
 WriteOnePara(MYINI,'SHUTDOWN','Interval',inttostr(spInterval.value));

 WriteOnePara(MYINI,'SHUTDOWN','chkClose',BoolStr(chkClose.checked));
 WriteOnePara(MYINI,'SHUTDOWN','spClose',inttostr(spClose.value));

 WriteOnePara(MYINI,'SHUTDOWN','AutoShutDown',BoolStr(chkAutoShutDown.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkShowDate',BoolStr(chkShowDate.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkPlayMusic',BoolStr(chkPlayMusic.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkStopMusic',BoolStr(chkStopMusic.checked));

 WriteOnePara(MYINI,'SHUTDOWN','tbVol1',inttostr(tbVol1.Position));
 WriteOnePara(MYINI,'SHUTDOWN','tbVol2',inttostr(tbVol2.Position));

 WriteOnePara(MYINI,'SHUTDOWN','chkShowLine',BoolStr(chkShowLine.checked));
 WriteOnepara(MYINI,'SHUTDOWN','Font',fonttostring(plHintFont.Font,True));
 MyWriteColor(MYINI,'SHUTDOWN','FrameColor',plLineColor.font.Color);

 WriteOnePara(MYINI,'SHUTDOWN','chkClockOne',BoolStr(chkClockOne.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkClockHalf',BoolStr(chkClockHalf.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkHintWindow',BoolStr(chkHintWindow.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkWallPaper',BoolStr(chkWallPaper.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkHintMusic',BoolStr(chkHintMusic.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkHintMusicFade',BoolStr(chkHintMusicFade.checked));
 WriteOnePara(MYINI,'SHUTDOWN','spHintMusicFade',inttostr(spHintMusicFade.value));

 MyWriteColor(MYINI,'SHUTDOWN','BKCOLOR',MyBackColor);
 WriteOnePara(MYINI,'SHUTDOWN','chkMusicDown',BoolStr(chkMusicDown.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkMusicStopRun',BoolStr(chkMusicStopRun.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkMusicStopPlay',BoolStr(chkMusicStopPlay.checked));
 WriteOnePara(MYINI,'SHUTDOWN','chkMusicFade',BoolStr(chkMusicFade.checked));
 WriteOnePara(MYINI,'SHUTDOWN','spMusicDown',inttostr(spMusicDown.value));
 WriteOnePara(MYINI,'SHUTDOWN','spMusicStopRun',inttostr(spMusicStopRun.value));
 WriteOnePara(MYINI,'SHUTDOWN','spMusicStopPlay',inttostr(spMusicStopPlay.value));
 WriteOnePara(MYINI,'SHUTDOWN','spMusicFade',inttostr(spMusicFade.value));

 end;

 procedure DelOneDevice(devFile:String;sType:String);
 Var aIniFile:TIniFile;
 begin
 aIniFile:=TIniFile.Create(devFile);
 try
 aIniFile.EraseSection(sType);
 finally
 aIniFile.Free;
 end;
 end;

 procedure WriteGridToINI(sFile,Sect:String;sg:TStringGrid);
 Var i:integer;
 s:String;
 begin
 {$I-}
 DelOneDevice(sFile,Sect);
 for i:= to SG.RowCount- do
 begin
 StrgridToStr(S,SG,i);
 WriteOnePara(sFile,Sect,'Row'+IntToStr(i),s);
 end;
 end;

 procedure StrGridToStr(Var S:String; Var SG:TStringGrid; Row:longint);
 Var i:integer;
 begin
 S:='';
 for i:= to SG.ColCount - do
 S:=S+SG.Cells[i,Row]+'^^';
 end;

 procedure WriteOnePara(sIniFile,Sct,Idt,Value:String);
 Var aIniFile:TIniFile;
 begin
 aIniFile:=TIniFile.Create(sIniFile);
 try
 aIniFile.WriteString(Sct,Idt,Value);
 finally
 aIniFile.Free;
 end;
 end;