document.write('');
document.write('');
document.write('');
document.write('');
document.write('Paste provided by Paste.ee - View Original - View Raw - Download
');
document.write('unit Langselect;\n\ninterface\n\nvar\n s01, s02, s03, s04, s05, s06, s07, s08, s09, s10, s11, s12, s13, s14, s15,\n s16, s17, s18, s19, s20, s21, s22, s23, s24: string;\n\nfunction getWindowsDefaultlanguage: string;\nprocedure SelEnglish;\nprocedure SelTurkish;\n\nimplementation\n\nuses\n Winapi.Windows, System.SysUtils, Form_Main, Form_Chat, Form_Password,\n Form_ShareFiles, Form_RemoteScreen;\n\nfunction getWindowsDefaultlanguage: string; // example : |Türkçe (Turkiye)|\nvar\n Ident: Integer;\n MyLang: PChar;\nconst\n Size: Integer = 250;\nbegin\n GetMem(MyLang, Size);\n Ident := GetSystemDefaultLangID;\n VerLanguageName(Ident, MyLang, Size);\n Result := StrPas(MyLang);\n FreeMem(MyLang);\nend;\n\nprocedure SelEnglish;\nbegin\n // Form Main Start\n s01 := \'Offline\';\n s02 := \'Receiving...\';\n s03 := \'You can not connect with yourself!\';\n s04 := \'Finding the ID...\';\n s05 := \'You are connected!\';\n s06 := \'Connecting to Server...\';\n s07 := \'Failed connect to Server.\';\n s08 := \'Connected support!\';\n s09 := \'Waiting for authentication...\';\n s10 := \'ID does nor exists..\';\n s11 := \'Wrong password!\';\n s12 := \'PC is Busy!\';\n s13 := \'Access granted!\';\n s14 := \'Lost connection to PC!\';\n s15 := \'He say:\';\n s16 := \'Share Files - \';\n s17 := \' Items found\';\n s18 := \'Size: 0 B / 0 B\';\n s19 := \'File sent!\';\n s20 := \'AllaKore Remote - Share Files\';\n s21 := \'AllaKore Remote (Ping: \'; // \' ms)\'\n s22 := \'Download complete!\'; // \' ms)\'\n\n with frm_Main do\n begin\n GroupBox1.Caption := \' This PC \';\n YourID_Label.Caption := \'Your ID\';\n YourPassword_Label.Caption := \'Your Password\';\n TargetID_Label.Caption := \'Target ID\';\n YourID_Edit.Text := s02;\n YourPassword_Edit.Text := s02;\n Connect_BitBtn.Caption := \'Connect to PC\';\n About_BitBtn.Caption := \'About\';\n Status_Label.Caption := s01;\n end;\n // Form Main End\n\n // Form Chat Start\n s23 := \'AllaKore Remote - Chat\';\n s24 := \'You say:\';\n frm_Chat.Caption := \'Chat\';\n // Form Chat End\n\n // Form Password Start\n frm_Password.Caption := \'Password\';\n frm_Password.Ok_BitBtn.Caption := \'Ok\';\n // Form Password End\n\n // Form ShareFiles start\n with frm_ShareFiles do\n begin\n Caption := \'Share Files\';\n Directory_Label.Caption := \'Directory:\';\n Download_BitBtn.Caption := \'Download file selected\';\n Upload_BitBtn.Caption := \'Send file to this directory\';\n DownloadProgress_Label.Caption := \'Download Progress:\';\n UploadProgress_Label.Caption := \'Upload Progress:\';\n end;\n // Form ShareFiles end\n\n // Form Remote Screen start\n with frm_RemoteScreen do\n begin\n Caption := \'Remote Screen\';\n MouseRemote_CheckBox.Caption := \'Mouse Remote\';\n KeyboardRemote_CheckBox.Caption := \'Keyboard Remote\';\n Resize_CheckBox.Caption := \'Resize\';\n end;\n // Form Remote Screen end\n\nend;\n\n\nprocedure SelTurkish;\nbegin\n // Form Main Start\n s01 := \'Çevrimdışı\';\n s02 := \'Bağlanmaya Çalışıyor...\';\n s03 := \'Kendi Bilgisayarınıza Bağlanamazsınız!\';\n s04 := \'ID Aranıyor...\';\n s05 := \'Bağlandınız!\';\n s06 := \'Sunucuya Bağlanmaya Çalışılıyor ...\';\n s07 := \'Sunucuya Bağlanılamadı.\';\n s08 := \'Connected support!\';\n s09 := \'Kimlik doğrulama için bekleniyor...\';\n s10 := \'ID Mevcut Değil..\';\n s11 := \'Yanlış Şifre!\';\n s12 := \'PC Meşgul!\';\n s13 := \'Erişim izni bekleniyor!\';\n s14 := \'Bağlantı Kesildi!\';\n s15 := \'Mesajım:\';\n s16 := \'Paylaşılan - \';\n s17 := \' adet Dosya Bulundu\';\n s18 := \'Boyut: 0 B / 0 B\';\n s19 := \'Dosya Gönderildi!\';\n s20 := \'AllaKore Remote - Dosya Paylaş\';\n s21 := \'AllaKore Remote (Ping: \'; // \' ms)\'\n s22 := \'Tüm İndirmeler Tamamlandı!\'; // \' ms)\'\n\n with frm_Main do\n begin\n GroupBox1.Caption := \' Sizin Bilgisayarınızın \';\n YourID_Label.Caption := \'ID\'\'nız\';\n YourPassword_Label.Caption := \'Şifreniz\';\n TargetID_Label.Caption := \'Hedef ID\';\n YourID_Edit.Text := s02;\n YourPassword_Edit.Text := s02;\n Connect_BitBtn.Caption := \'Bağlan\';\n About_BitBtn.Caption := \'Hakkında\';\n Status_Label.Caption := s01;\n end;\n // Form Main End\n\n // Form Chat Start\n s23 := \'AllaKore Remote - Sohbet\';\n s24 := \'Mesajım:\';\n frm_Chat.Caption := \'Sohbet\';\n // Form Chat End\n\n // Form Password Start\n frm_Password.Caption := \'Şifre Ekranı\';\n frm_Password.Ok_BitBtn.Caption := \'Tamam\';\n // Form Password End\n\n // Form ShareFiles start\n with frm_ShareFiles do\n begin\n Caption := \'Dosya Paylaş\';\n Directory_Label.Caption := \'Klasör:\';\n Download_BitBtn.Caption := \'Seçilen Dosyayı indir.\';\n Upload_BitBtn.Caption := \'Dosya Gönder\';\n DownloadProgress_Label.Caption := \'İndirme İlerlemesi:\';\n UploadProgress_Label.Caption := \'Yükleme İlerlemesi:\';\n end;\n // Form ShareFiles end\n\n // Form Remote Screen start\n with frm_RemoteScreen do\n begin\n Caption := \'Uzak Bağlantı\';\n MouseRemote_CheckBox.Caption := \'Fare Kontrol\';\n KeyboardRemote_CheckBox.Caption := \'Klavye Kontrol\';\n Resize_CheckBox.Caption := \'Boyutlandır\';\n end;\n // Form Remote Screen end\n\nend;\n\nend.
');
function initEmbeddedPaste_ebhiaRrqcJ8RMGxB() {
hljs.highlightBlock(document.getElementById('pastee-ebhiaRrqcJ8RMGxB-content'));
}
addEventListener('DOMContentLoaded', initEmbeddedPaste_ebhiaRrqcJ8RMGxB, false);
addEventListener('load', initEmbeddedPaste_ebhiaRrqcJ8RMGxB, false);