lang.pas

2003年的远程控制

unit lang;

interface
const langmax=401;
type langset=array[1..langmax] of string;
procedure setlang(a:langSet);
procedure setfromfile(s:string);
procedure writetofile(s:string;a:langset);

implementation

uses main,inifiles,classes,sysutils,lang_eng;

procedure setfromfile(s:string);
var ini:Tmeminifile;
    val:Tstringlist;
    a:langset;
    i:integer;
begin
ini:=Tmeminifile.create(s);
val:=Tstringlist.create;
if ini.SectionExists('Lang') then
begin
 ini.ReadSectionValues('Lang',val);
 for i:=1 to langmax do
  a[i]:=val.Values[inttostr(i)];
 setlang(a);
end;
ini.free;
end;

procedure writetofile(s:string;a:langset);
var ini:Tmeminifile;
    val:Tstringlist;
    i:integer;
begin
ini:=Tmeminifile.create(s);
for i:=1 to langmax do
ini.WriteString('Lang',inttostr(i),a[i]);
ini.UpdateFile;
ini.free;
end;

procedure setlang(a:langSet);
begin
with form1 do
begin
 Tab1.caption:=a[1];
 Tab2.caption:=a[2];
 Tab3.caption:=a[3];
 Tab4.caption:=a[4];
 Tab5.caption:=a[5];
 Tab6.caption:=a[6];
 Tab7.caption:=a[7];
 Tab8.caption:=a[8];
 Tab9.caption:=a[9];
 Tab10.caption:=a[10];
 Tab11.caption:=a[11];
 lab1.caption:=a[12];
 hostname.hint:=a[13];
 lab2.caption:=a[14];
 portnr.hint:=a[15];
 lab3.caption:=a[16];
 pass.hint:=a[17];
 tt.conn:=copy(a[18],1,pos(',',a[18])-1);
 tt.discon:=copy(a[18],pos(',',a[18])+1,255);
 button1.caption:=tt.conn;
 button1.hint:=a[19];
 but2.caption:=a[20];
 but2.hint:=a[21];
 Groupbox14.caption:=a[22];
 label333.caption:=a[23];
 label25.caption:=a[24];
 label26.caption:=a[25];
 label49.caption:=a[26];
 label3.caption:=a[27];
 label23.caption:=a[28];
 label21.caption:=a[29];
 label31.caption:=a[30];
 label17.caption:=a[31];
 label50.caption:=a[32];
 groupbox2.caption:=a[33];
 netlist.Rows[0].CommaText:=a[34];
 scanbutt.caption:=a[35];
 scanbutt.hint:=a[36];
 label27.caption:=a[37];
 label29.caption:=a[38];
 label28.caption:=a[39];
 label47.caption:=a[40];
 pingbutt.caption:=a[41];
 pingbutt.hint:=a[42];
 speedbutton61.caption:=a[43];
 speedbutton61.hint:=a[44];
 speedbutton60.caption:=a[45];
 speedbutton60.hint:=a[46];
 speedbutton66.caption:=a[47];
 speedbutton66.hint:=a[48];
 netlist.hint:=a[49];
 label4.caption:=a[50];
 wintitle.hint:=a[51];
 button7.caption:=a[52];
 button7.hint:=a[53];
 showwin.caption:=a[54];
 showwin.hint:=a[55];
 button22.caption:=a[56];
 button22.hint:=a[57];
 button6.caption:=a[58];
 button6.hint:=a[59];
 winlist.hint:=a[60];
 invisible.caption:=a[61];
 invisible.hint:=a[62];
 Tabsheet6.caption:=a[63];
 button8.caption:=a[64];
 button8.hint:=a[65];
 button18.caption:=a[66];
 button18.hint:=a[67];
 button19.caption:=a[68];
 button19.hint:=a[69];
 button20.caption:=a[70];
 button20.hint:=a[71];
 button16.caption:=a[72];
 button16.hint:=a[73];
 Speedbutton71.caption:=a[74];
 Speedbutton71.hint:=a[75];
 button21.caption:=a[76];
 button21.hint:=a[77];
 speedbutton35.caption:=a[78];
 speedbutton35.hint:=a[79];
 label20.caption:=a[80];
 iledziur.hint:=a[81];
 speedbutton36.caption:=a[82];
 speedbutton36.hint:=a[83];
 speedbutton37.caption:=a[84];
 speedbutton37.hint:=a[85];
 trackbar1.hint:=a[86];
 speedbutton18.caption:=a[87];
 speedbutton18.hint:=a[88];
 speedbutton77.caption:=a[89];
 speedbutton77.hint:=a[90];
 tabsheet8.caption:=a[91];
 label5.caption:=a[92];
 childtitle.hint:=a[93];
 chrename.caption:=a[94];
 chrename.hint:=a[95];
 enablechild.caption:=a[96];
 enablechild.hint:=a[97];
 showchild.caption:=a[98];
 showchild.hint:=a[99];
 button10.caption:=a[100];
 button10.hint:=a[101];
 childtype.caption:=a[102];
 childtype.hint:=a[103];
 edit2.hint:=a[104];
 childlist.hint:=a[105];
 drivelist.hint:=a[106];
 dirlist.hint:=a[107];
 filelist.hint:=a[108];
 speedbutton1.hint:=a[109];
 speedbutton78.hint:=a[110];
 speedbutton79.hint:=a[111];
 gauge1.hint:=a[112];
 speedbutton2.hint:=a[113];
 speedbutton15.hint:=a[114];
 speedbutton5.hint:=a[115];
 speedbutton4.hint:=a[116];
 speedbutton3.hint:=a[117];
 speedbutton25.hint:=a[118];
 drivecombobox1.hint:=a[119];
 directorylistbox1.hint:=a[120];
 filelistbox1.hint:=a[121];
 I_lasterror.caption:=a[122];
 speedbutton17.hint:=a[123];
 groupbox5.caption:=a[124];
 speedbutton11.caption:=a[125];
 speedbutton11.hint:=a[126];
 label6.caption:=a[127];
 label8.caption:=a[128];
 speedbutton12.caption:=a[129];
 speedbutton12.hint:=a[130];
 groupbox6.caption:=a[131];
 exe.caption:=a[132];
 dos.caption:=a[133];
 normal.caption:=a[134];
 minimal.caption:=a[135];
 hidden.caption:=a[136];
 speedbutton13.caption:=a[137];
 speedbutton13.hint:=a[138];
 groupbox7.caption:=a[139];
 monitoron.caption:=a[140];
 label10.caption:=a[141];
 speedbutton16.caption:=a[142];
 speedbutton16.hint:=a[143];
 speedbutton14.caption:=a[144];
 speedbutton14.hint:=a[145];
 speedbutton19.caption:=a[146];
 speedbutton19.hint:=a[147];
 label11.caption:=a[148];
 speedbutton20.caption:=a[149];
 speedbutton20.hint:=a[150];
 label12.caption:=a[151];
 groupbox9.caption:=a[152];
 speedbutton26.caption:=a[153];
 speedbutton26.hint:=a[154];
 speedbutton27.caption:=a[155];
 speedbutton27.hint:=a[156];
 speedbutton28.caption:=a[157];
 speedbutton28.hint:=a[158];
 groupbox12.caption:=a[159];
 speedbutton39.caption:=a[160];
 speedbutton39.hint:=a[161];
 speedbutton40.caption:=a[162];
 speedbutton40.hint:=a[163];
 efektsel.Items.CommaText:=a[164];
 groupbox15.caption:=a[165];
 mesg_icon1.caption:=a[166];
 mesg_icon2.caption:=a[167];
 mesg_icon3.caption:=a[168];
 mesg_icon4.caption:=a[169];
 mesg_buttons1.caption:=a[170];
 label51.caption:=a[171];
 label52.caption:=a[172];
 speedbutton21.caption:=a[173];
 speedbutton21.hint:=a[174];
 groupbox1.caption:=a[175];
 button2.caption:=a[176];
 button2.hint:=a[177];
 button3.caption:=a[178];
 button3.hint:=a[179];
 button4.caption:=a[180];
 button4.hint:=a[181];
 button5.caption:=a[182];
 button5.hint:=a[183];
 speedbutton45.caption:=a[184];
 speedbutton45.hint:=a[185];
 groupbox8.caption:=a[186];
 mouseswap.caption:=a[187];
 hidestart.caption:=a[188];
 hidetask.caption:=a[189];
 hidepulpit.caption:=a[190];
 keylock.caption:=a[191];
 speedbutton69.caption:=a[192];
 speedbutton69.hint:=a[193];
 speedbutton70.caption:=a[194];
 speedbutton70.hint:=a[195];
// groupbox10.caption:=a[196];
// label14.caption:=a[197];
// speedbutton29.caption:=a[198];
// speedbutton29.hint:=a[199];
// groupbox11.caption:=a[200];
// speedbutton30.caption:=a[201];
// speedbutton30.hint:=a[202];
// speedbutton31.caption:=a[203];
// speedbutton31.hint:=a[204];
// speedbutton32.caption:=a[205];
// speedbutton32.hint:=a[206];
 speedbutton65.caption:=a[207];
 speedbutton65.hint:=a[208];
 bitbtn1.caption:=a[209];
 bitbtn1.hint:=a[210];
 bitbtn2.caption:=a[211];
 bitbtn2.hint:=a[212];
 speedbutton9.caption:=a[213];
 speedbutton9.hint:=a[214];
 speedbutton38.caption:=a[215];
 speedbutton38.hint:=a[216];
 speedbutton44.caption:=a[217];
 speedbutton44.hint:=a[218];
 speedbutton43.caption:=a[219];
 speedbutton43.hint:=a[220];
 speedbutton41.caption:=a[221];
 speedbutton41.hint:=a[222];
 speedbutton56.caption:=a[223];
 speedbutton56.hint:=a[224];
 speedbutton72.caption:=a[225];
 speedbutton72.hint:=a[226];
 speedbutton73.caption:=a[227];
 speedbutton73.hint:=a[228];
 scriptlist.hint:=a[229];
 scriptedit.hint:=a[230];
 label7.caption:=a[231];
 label33.caption:=a[232];
 groupbox13.caption:=a[233];
 speedbutton42.caption:=a[234];
 speedbutton42.hint:=a[235];
 speedbutton52.caption:=a[236];
 speedbutton52.hint:=a[237];
 speedbutton55.caption:=a[238];
 speedbutton55.hint:=a[239];
 speedbutton53.caption:=a[240];
 speedbutton53.hint:=a[241];
 speedbutton54.caption:=a[242];
 speedbutton54.hint:=a[243];
 terminlist.hint:=a[244];
 tabsheet13.caption:=a[245];
 tabsheet14.caption:=a[246];
 tabsheet15.caption:=a[247];
 tabsheet16.caption:=a[248];
 dw1.items.clear;
 dw1.Items.CommaText:=a[249];
 dw1.itemindex:=0;
 dw2.Items.Clear;
 dw2.Items.CommaText:=a[249];
 dw2.itemindex:=0;
 speedbutton46.caption:=a[250];
 speedbutton46.hint:=a[251];
 speedbutton47.caption:=a[250];
 speedbutton47.hint:=a[251];
 speedbutton48.caption:=a[250];
 speedbutton48.hint:=a[251];
 speedbutton49.caption:=a[250];
 speedbutton49.hint:=a[251];
 speedbutton50.caption:=a[250];
 speedbutton50.hint:=a[251];
 speedbutton51.caption:=a[250];
 speedbutton51.hint:=a[251];
 label34.caption:=a[252];
 label35.caption:=a[253];
 label36.caption:=a[254];
 label38.caption:=a[255];
 label39.caption:=a[256];
 label43.caption:=a[257];
 label44.caption:=a[258];
 label40.caption:=a[259];
 label41.caption:=a[260];
 label42.caption:=a[261];
 terminenabled.caption:=a[262];
 speedbutton57.caption:=a[263];
 speedbutton57.hint:=a[264];
 speedbutton58.caption:=a[265];
 speedbutton58.hint:=a[266];
 speedbutton59.caption:=a[267];
 speedbutton59.hint:=a[268];
 terminscripts.hint:=a[269];
 groupbox17.caption:=a[270];
 label13.caption:=a[271];
 label53.caption:=a[272];
 label54.caption:=a[273];
 speedbutton68.caption:=a[274];
 speedbutton68.hint:=a[275];
 mailedit.hint:=a[276];
 groupbox18.caption:=a[277];
 i_httpd.caption:=a[278];
 i_httpdauto.caption:=a[279];
 label19.caption:=a[280];
 speedbutton82.caption:=a[281];
 speedbutton82.hint:=a[282];
 speedbutton24.caption:=a[283];
 speedbutton24.hint:=a[284];
 speedbutton63.caption:=a[285];
 speedbutton63.hint:=a[286];
 speedbutton64.caption:=a[287];
 speedbutton64.hint:=a[288];
 groupbox16.caption:=a[289];
 Button9.caption:=a[290];
 button9.hint:=a[291];
 speedbutton22.caption:=a[292];
 speedbutton22.hint:=a[293];
 groupbox4.caption:=a[294];
 i_proxy.caption:=a[295];
 i_proxyauto.caption:=a[296];
 label15.caption:=a[297];
 label16.caption:=a[298];
 speedbutton33.caption:=a[299];
 speedbutton33.hint:=a[300];
 groupbox22.caption:=a[301];
 i_telnet.caption:=a[302];
 i_telnetauto.caption:=a[303];
 label56.caption:=a[304];
 speedbutton80.caption:=a[305];
 speedbutton80.hint:=a[306];
 speedbutton83.caption:=a[307];
 speedbutton83.hint:=a[308];
 speedbutton7.caption:=a[309];
 speedbutton7.hint:=a[310];
 speedbutton8.caption:=a[311];
 speedbutton8.hint:=a[312];
 groupbox3.caption:=a[313];
 speedbutton6.caption:=a[314];
 speedbutton6.hint:=a[315];
 speedbutton23.caption:=a[316];
 speedbutton23.hint:=a[317];
 speedbutton86.caption:=a[318];
 speedbutton86.hint:=a[319];
 groupbox19.caption:=a[320];
 memo1.hint:=a[321];
 label57.caption:=a[322];
 debug.caption:=a[323];
 speedbutton67.caption:=a[324];
 speedbutton67.hint:=a[325];
 groupbox20.caption:=a[326];
 i_syslog.caption:=a[327];
 i_autosyslog.caption:=a[328];
 speedbutton75.caption:=a[329];
 speedbutton75.hint:=a[330];
 i_keylog.caption:=a[331];
 i_autokeylog.caption:=a[332];
 speedbutton76.caption:=a[333];
 speedbutton76.hint:=a[334];
 speedbutton62.caption:=a[335];
 speedbutton62.hint:=a[336];
 speedbutton81.caption:=a[337];
 speedbutton81.hint:=a[338];
 speedbutton74.caption:=a[339];
 speedbutton74.hint:=a[340];
 groupbox21.caption:=a[341];
 speedbutton10.caption:=a[342];
 speedbutton10.hint:=a[343];
 tabsheet1.caption:=a[344];
 msnet.hint:=a[345];
 speedbutton91.caption:=a[346];
 speedbutton91.hint:=a[347];
 speedbutton92.caption:=a[348];
 speedbutton92.hint:=a[349];
 speedbutton89.caption:=a[350];
 speedbutton89.hint:=a[351];
 speedbutton90.caption:=a[352];
 speedbutton90.hint:=a[353];
 filter.hint:=a[354];
 groupbox10.caption:=a[355];
 speedbutton29.caption:=a[356];
 speedbutton29.hint:=a[357];
 speedbutton30.caption:=a[358];
 speedbutton30.hint:=a[359];
 speedbutton31.caption:=a[360];
 speedbutton31.hint:=a[361];
 speedbutton32.caption:=a[362];
 speedbutton32.hint:=a[363];
 cdtracks.hint:=a[364];
 speedbutton84.caption:=a[365];
 speedbutton84.hint:=a[366];
 speedbutton85.caption:=a[367];
 speedbutton85.hint:=a[368];
 reglist.hint:=a[369];
 vallist.hint:=a[370];
 vallist.Cells[0,0]:=a[371];
 vallist.Cells[1,0]:=a[372];
 jpeg_quality.hint:=a[373];
 i_mysza.caption:=a[374];
 i_mysza.hint:=a[375];
 i_syskey.caption:=a[376];
 i_syskey.hint:=a[377];
 i_apptitle.caption:=a[378];
 i_apptitle.hint:=a[379];
 speedbutton86.caption:=a[380];
 speedbutton86.hint:=a[381];
 label66.caption:=a[382];
 WallpaperBMP1.caption:=a[383];
 ShowJPEGJPG1.caption:=a[384];
 Shift1.caption:=a[385];
 PlaysoundWAV1.caption:=a[386];
 PlayloopWAV1.caption:=a[387];
 SoundStop1.caption:=a[388];
 Windowsdirectory1.caption:=a[389];
 Systemdirectory1.caption:=a[390];
 Pulpit1.caption:=a[391];
 ProgramFiles1.caption:=a[392];
 MenuStart1.caption:=a[393];
 MojeDokumenty1.caption:=a[394];
 Getroot1.caption:=a[395];
 Up1.caption:=a[396];
 N1.caption:=a[397];
 Updateremoteregistry1.caption:=a[398];
 AddValue1.caption:=a[399];
 DeleteValue1.caption:=a[400];
 Refresh1.caption:=a[401];
end;
end;

end.