《用delphi开发共享软件》-15.2桌面提示器
打开一个配置文件：
打开一个配置文件操作TStringGrid
1 Procedure EmptyGrid(Var sg:TStringGrid); 2 Var i:Integer; 3 begin 4 for i:=1 to sg.RowCount -1 do 5 sg.Rows[i].clear; 6 sg.RowCount :=2; 7 end; 8 9 Procedure SetGridTitle(Var SG:TStringGrid; sTil:array of String); 10 Var i,l,h:integer; 11 begin 12 l:=Low(sTil); 13 h:=High(sTil); 14 if sg.ColCount<h-l+1 then sg.ColCount:=h-l+1; 15 for i:=0 to sg.ColCount -1 do 16 begin 17 sg.Cells[i,0]:=sTil[l+i]; 18 if i>h then Exit; 19 end; 20 end; 21 22 Procedure SetGridNumber(Var SG:TStringGrid; 23 Col,bn,len:Integer;ch:Char); 24 Var i:integer; 25 begin 26 for i:=1 to sg.RowCount -1 do 27 begin 28 sg.Cells[Col,i]:=Format('%d',[bn+i-1]); 29 sg.Cells[Col,i]:=Padl(sg.Cells[Col,i],ch,len); 30 end; 31 end;
1 procedure TFrmPara.WriteParameters; 2 Var s:String; 3 begin 4 DelOneDevice(MYINI,'关机时间'); 5 WriteGridToINI(MYINI,'关机时间',sgTime); 6 DelOneDevice(MYINI,'桌面图片'); 7 WriteGridToINI(MYINI,'桌面图片',sgPic); 8 DelOneDevice(MYINI,'背景音乐'); 9 WriteGridToINI(MYINI,'背景音乐',sgSong); 10 DelOneDevice(MYINI,'桌面提示'); 11 WriteGridToINI(MYINI,'桌面提示',sgHint); 12 DelOneDevice(MYINI,'定时提示'); 13 WriteGridToINI(MYINI,'定时提示',sgNote); 14 15 WriteOnePara(MYINI,'SHUTDOWN','chkSrvShutDown',BoolStr(chkSrvShutDown.checked)); 16 WriteOnePara(MYINI,'SHUTDOWN','chkShutAfterATime',BoolStr(chkShutAfterATime.checked)); 17 WriteOnePara(MYINI,'SHUTDOWN','Interval',inttostr(spInterval.value)); 18 19 WriteOnePara(MYINI,'SHUTDOWN','chkClose',BoolStr(chkClose.checked)); 20 WriteOnePara(MYINI,'SHUTDOWN','spClose',inttostr(spClose.value)); 21 22 WriteOnePara(MYINI,'SHUTDOWN','AutoShutDown',BoolStr(chkAutoShutDown.checked)); 23 WriteOnePara(MYINI,'SHUTDOWN','chkShowDate',BoolStr(chkShowDate.checked)); 24 WriteOnePara(MYINI,'SHUTDOWN','chkPlayMusic',BoolStr(chkPlayMusic.checked)); 25 WriteOnePara(MYINI,'SHUTDOWN','chkStopMusic',BoolStr(chkStopMusic.checked)); 26 27 WriteOnePara(MYINI,'SHUTDOWN','tbVol1',inttostr(tbVol1.Position)); 28 WriteOnePara(MYINI,'SHUTDOWN','tbVol2',inttostr(tbVol2.Position)); 29 30 WriteOnePara(MYINI,'SHUTDOWN','chkShowLine',BoolStr(chkShowLine.checked)); 31 WriteOnepara(MYINI,'SHUTDOWN','Font',fonttostring(plHintFont.Font,True)); 32 MyWriteColor(MYINI,'SHUTDOWN','FrameColor',plLineColor.font.Color); 33 34 WriteOnePara(MYINI,'SHUTDOWN','chkClockOne',BoolStr(chkClockOne.checked)); 35 WriteOnePara(MYINI,'SHUTDOWN','chkClockHalf',BoolStr(chkClockHalf.checked)); 36 WriteOnePara(MYINI,'SHUTDOWN','chkHintWindow',BoolStr(chkHintWindow.checked)); 37 WriteOnePara(MYINI,'SHUTDOWN','chkWallPaper',BoolStr(chkWallPaper.checked)); 38 WriteOnePara(MYINI,'SHUTDOWN','chkHintMusic',BoolStr(chkHintMusic.checked)); 39 WriteOnePara(MYINI,'SHUTDOWN','chkHintMusicFade',BoolStr(chkHintMusicFade.checked)); 40 WriteOnePara(MYINI,'SHUTDOWN','spHintMusicFade',inttostr(spHintMusicFade.value)); 41 42 MyWriteColor(MYINI,'SHUTDOWN','BKCOLOR',MyBackColor); 43 WriteOnePara(MYINI,'SHUTDOWN','chkMusicDown',BoolStr(chkMusicDown.checked)); 44 WriteOnePara(MYINI,'SHUTDOWN','chkMusicStopRun',BoolStr(chkMusicStopRun.checked)); 45 WriteOnePara(MYINI,'SHUTDOWN','chkMusicStopPlay',BoolStr(chkMusicStopPlay.checked)); 46 WriteOnePara(MYINI,'SHUTDOWN','chkMusicFade',BoolStr(chkMusicFade.checked)); 47 WriteOnePara(MYINI,'SHUTDOWN','spMusicDown',inttostr(spMusicDown.value)); 48 WriteOnePara(MYINI,'SHUTDOWN','spMusicStopRun',inttostr(spMusicStopRun.value)); 49 WriteOnePara(MYINI,'SHUTDOWN','spMusicStopPlay',inttostr(spMusicStopPlay.value)); 50 WriteOnePara(MYINI,'SHUTDOWN','spMusicFade',inttostr(spMusicFade.value)); 51 52 end; 53 54 procedure DelOneDevice(devFile:String;sType:String); 55 Var aIniFile:TIniFile; 56 begin 57 aIniFile:=TIniFile.Create(devFile); 58 try 59 aIniFile.EraseSection(sType); 60 finally 61 aIniFile.Free; 62 end; 63 end; 64 65 procedure WriteGridToINI(sFile,Sect:String;sg:TStringGrid); 66 Var i:integer; 67 s:String; 68 begin 69 {$I-} 70 DelOneDevice(sFile,Sect); 71 for i:=0 to SG.RowCount-1 do 72 begin 73 StrgridToStr(S,SG,i); 74 WriteOnePara(sFile,Sect,'Row'+IntToStr(i),s); 75 end; 76 end; 77 78 procedure StrGridToStr(Var S:String; Var SG:TStringGrid; Row:longint); 79 Var i:integer; 80 begin 81 S:=''; 82 for i:=0 to SG.ColCount -1 do 83 S:=S+SG.Cells[i,Row]+'^^'; 84 end; 85 86 procedure WriteOnePara(sIniFile,Sct,Idt,Value:String); 87 Var aIniFile:TIniFile; 88 begin 89 aIniFile:=TIniFile.Create(sIniFile); 90 try 91 aIniFile.WriteString(Sct,Idt,Value); 92 finally 93 aIniFile.Free; 94 end; 95 end;
