Paste "The AllaKore Remote Open ..." Delphi
  1. unit Langselect;
  2.  
  3. interface
  4.  
  5. var
  6. s01, s02, s03, s04, s05, s06, s07, s08, s09, s10, s11, s12, s13, s14, s15,
  7. s16, s17, s18, s19, s20, s21, s22, s23, s24: string;
  8.  
  9. function getWindowsDefaultlanguage: string;
  10. procedure SelEnglish;
  11. procedure SelTurkish;
  12.  
  13. implementation
  14.  
  15. uses
  16. Winapi.Windows, System.SysUtils, Form_Main, Form_Chat, Form_Password,
  17. Form_ShareFiles, Form_RemoteScreen;
  18.  
  19. function getWindowsDefaultlanguage: string; // example : |Türkçe (Turkiye)|
  20. var
  21. Ident: Integer;
  22. MyLang: PChar;
  23. const
  24. Size: Integer = 250;
  25. begin
  26. GetMem(MyLang, Size);
  27. Ident := GetSystemDefaultLangID;
  28. VerLanguageName(Ident, MyLang, Size);
  29. Result := StrPas(MyLang);
  30. FreeMem(MyLang);
  31. end;
  32.  
  33. procedure SelEnglish;
  34. begin
  35. // Form Main Start
  36. s01 := 'Offline';
  37. s02 := 'Receiving...';
  38. s03 := 'You can not connect with yourself!';
  39. s04 := 'Finding the ID...';
  40. s05 := 'You are connected!';
  41. s06 := 'Connecting to Server...';
  42. s07 := 'Failed connect to Server.';
  43. s08 := 'Connected support!';
  44. s09 := 'Waiting for authentication...';
  45. s10 := 'ID does nor exists..';
  46. s11 := 'Wrong password!';
  47. s12 := 'PC is Busy!';
  48. s13 := 'Access granted!';
  49. s14 := 'Lost connection to PC!';
  50. s15 := 'He say:';
  51. s16 := 'Share Files - ';
  52. s17 := ' Items found';
  53. s18 := 'Size: 0 B / 0 B';
  54. s19 := 'File sent!';
  55. s20 := 'AllaKore Remote - Share Files';
  56. s21 := 'AllaKore Remote (Ping: '; // ' ms)'
  57. s22 := 'Download complete!'; // ' ms)'
  58.  
  59. with frm_Main do
  60. begin
  61. GroupBox1.Caption := ' This PC ';
  62. YourID_Label.Caption := 'Your ID';
  63. YourPassword_Label.Caption := 'Your Password';
  64. TargetID_Label.Caption := 'Target ID';
  65. YourID_Edit.Text := s02;
  66. YourPassword_Edit.Text := s02;
  67. Connect_BitBtn.Caption := 'Connect to PC';
  68. About_BitBtn.Caption := 'About';
  69. Status_Label.Caption := s01;
  70. end;
  71. // Form Main End
  72.  
  73. // Form Chat Start
  74. s23 := 'AllaKore Remote - Chat';
  75. s24 := 'You say:';
  76. frm_Chat.Caption := 'Chat';
  77. // Form Chat End
  78.  
  79. // Form Password Start
  80. frm_Password.Caption := 'Password';
  81. frm_Password.Ok_BitBtn.Caption := 'Ok';
  82. // Form Password End
  83.  
  84. // Form ShareFiles start
  85. with frm_ShareFiles do
  86. begin
  87. Caption := 'Share Files';
  88. Directory_Label.Caption := 'Directory:';
  89. Download_BitBtn.Caption := 'Download file selected';
  90. Upload_BitBtn.Caption := 'Send file to this directory';
  91. DownloadProgress_Label.Caption := 'Download Progress:';
  92. UploadProgress_Label.Caption := 'Upload Progress:';
  93. end;
  94. // Form ShareFiles end
  95.  
  96. // Form Remote Screen start
  97. with frm_RemoteScreen do
  98. begin
  99. Caption := 'Remote Screen';
  100. MouseRemote_CheckBox.Caption := 'Mouse Remote';
  101. KeyboardRemote_CheckBox.Caption := 'Keyboard Remote';
  102. Resize_CheckBox.Caption := 'Resize';
  103. end;
  104. // Form Remote Screen end
  105.  
  106. end;
  107.  
  108.  
  109. procedure SelTurkish;
  110. begin
  111. // Form Main Start
  112. s01 := 'Çevrimdışı';
  113. s02 := 'Bağlanmaya Çalışıyor...';
  114. s03 := 'Kendi Bilgisayarınıza Bağlanamazsınız!';
  115. s04 := 'ID Aranıyor...';
  116. s05 := 'Bağlandınız!';
  117. s06 := 'Sunucuya Bağlanmaya Çalışılıyor ...';
  118. s07 := 'Sunucuya Bağlanılamadı.';
  119. s08 := 'Connected support!';
  120. s09 := 'Kimlik doğrulama için bekleniyor...';
  121. s10 := 'ID Mevcut Değil..';
  122. s11 := 'Yanlış Şifre!';
  123. s12 := 'PC Meşgul!';
  124. s13 := 'Erişim izni bekleniyor!';
  125. s14 := 'Bağlantı Kesildi!';
  126. s15 := 'Mesajım:';
  127. s16 := 'Paylaşılan - ';
  128. s17 := ' adet Dosya Bulundu';
  129. s18 := 'Boyut: 0 B / 0 B';
  130. s19 := 'Dosya Gönderildi!';
  131. s20 := 'AllaKore Remote - Dosya Paylaş';
  132. s21 := 'AllaKore Remote (Ping: '; // ' ms)'
  133. s22 := 'Tüm İndirmeler Tamamlandı!'; // ' ms)'
  134.  
  135. with frm_Main do
  136. begin
  137. GroupBox1.Caption := ' Sizin Bilgisayarınızın ';
  138. YourID_Label.Caption := 'ID''nız';
  139. YourPassword_Label.Caption := 'Şifreniz';
  140. TargetID_Label.Caption := 'Hedef ID';
  141. YourID_Edit.Text := s02;
  142. YourPassword_Edit.Text := s02;
  143. Connect_BitBtn.Caption := 'Bağlan';
  144. About_BitBtn.Caption := 'Hakkında';
  145. Status_Label.Caption := s01;
  146. end;
  147. // Form Main End
  148.  
  149. // Form Chat Start
  150. s23 := 'AllaKore Remote - Sohbet';
  151. s24 := 'Mesajım:';
  152. frm_Chat.Caption := 'Sohbet';
  153. // Form Chat End
  154.  
  155. // Form Password Start
  156. frm_Password.Caption := 'Şifre Ekranı';
  157. frm_Password.Ok_BitBtn.Caption := 'Tamam';
  158. // Form Password End
  159.  
  160. // Form ShareFiles start
  161. with frm_ShareFiles do
  162. begin
  163. Caption := 'Dosya Paylaş';
  164. Directory_Label.Caption := 'Klasör:';
  165. Download_BitBtn.Caption := 'Seçilen Dosyayı indir.';
  166. Upload_BitBtn.Caption := 'Dosya Gönder';
  167. DownloadProgress_Label.Caption := 'İndirme İlerlemesi:';
  168. UploadProgress_Label.Caption := 'Yükleme İlerlemesi:';
  169. end;
  170. // Form ShareFiles end
  171.  
  172. // Form Remote Screen start
  173. with frm_RemoteScreen do
  174. begin
  175. Caption := 'Uzak Bağlantı';
  176. MouseRemote_CheckBox.Caption := 'Fare Kontrol';
  177. KeyboardRemote_CheckBox.Caption := 'Klavye Kontrol';
  178. Resize_CheckBox.Caption := 'Boyutlandır';
  179. end;
  180. // Form Remote Screen end
  181.  
  182. end;
  183.  
  184. end.
Submitted and never expires    Report abuse
6KB Characters: 5210 Hits: 42