Bay_RC Posted March 1, 2012 Share Posted March 1, 2012 (edited) TL SİMGEMİZ: [img]http://www.tnctr.com/uploads/imgs/pre_1330600192__tlsimge.jpg[/img] TL SİMGESİ TASARIMCISI (TÜLAY LALE) [img]http://www.tnctr.com/uploads/imgs/pre_1330602686__capture4.jpg[/img] PROGRAM Link: http://hotfile.com/dl/148344522/b0d112a/TLSimge.rar.html Pass: Türkiye Rardan çıkan programa çift tıklayın evet deyin bukadar.. Ondan sonra Altgr + T Tşuna basınca ekranınızda.. Türkiyeye hayırlı ve uğurlu olsun.. Kurulum Bilgisi: Yapmış olduğunuz kurulum, işletim sisteminizin program dosyaları alanına "TCMB" isimli bir klasör yaratmıştır. Bu klasörde, başlangıç menünüzde bir kısayolu da bulunmakta olan "TLSimgeKisayol.exe" programı yer almaktadır. Bu programı çalıştırıp herhangi bir metin düzenleyicide, "AbakuTLSymSans" yazı tipini seçtiğiniz taktirde AltGr+T ve Ctrl+Alt+T tuş kombinasyonları ile TL simgesini kullanabilirsiniz. Programı kapatmak için, sistem menüsü alanından TL simgesini sağ tıklayarak "Çıkış" seçeneğini seçmeniz yeterlidir. Not: Tarafımca test edildi. Sorun yok. Lakin tnctr'de bir mesaj yazarken "¨" şeklinde çıkıyor. Edited March 1, 2012 by sere Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 1, 2012 Share Posted March 1, 2012 [quote]http://www.tcmb.gov.tr/yeni/iletisimgm/TLSimge/kurulum.html[/quote] burdan indirin tüm işletim sistemleri için. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted March 1, 2012 Share Posted March 1, 2012 (edited) [quote name='KintaRo' date='01 March 2012 - 13:59 ' timestamp='1330603185' post='1163313'] burdan indirin tüm işletim sistemleri için. [/quote] AutoIT ile yapılmış bu şaka değil cidden AutoIT buda kaynak kodları [codebox] Func _WINAPI_GETLASTERROR($CURERR = @error, $CUREXT = @extended) Local $ARESULT = DllCall("kernel32.dll", "dword", "GetLastError") Return SetError($CURERR, $CUREXT, $ARESULT[0]) EndFunc Func _WINAPI_SETLASTERROR($IERRCODE, $CURERR = @error, $CUREXT = @extended) DllCall("kernel32.dll", "none", "SetLastError", "dword", $IERRCODE) Return SetError($CURERR, $CUREXT) EndFunc Global Const $__MISCCONSTANT_CC_ANYCOLOR = 256 Global Const $__MISCCONSTANT_CC_FULLOPEN = 2 Global Const $__MISCCONSTANT_CC_RGBINIT = 1 Global Const $TAGCHOOSECOLOR = "dword Size;hwnd hWndOwnder;handle hInstance;dword rgbResult;ptr CustColors;dword Flags;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName" Global Const $TAGCHOOSEFONT = "dword Size;hwnd hWndOwner;handle hDC;ptr LogFont;int PointSize;dword Flags;dword rgbColors;lparam CustData;" & "ptr fnHook;ptr TemplateName;handle hInstance;ptr szStyle;word FontType;int SizeMin;int SizeMax" Func _CHOOSECOLOR($IRETURNTYPE = 0, $ICOLORREF = 0, $IREFTYPE = 0, $HWNDOWNDER = 0) Local $CUSTCOLORS = "dword[16]" Local $TCHOOSE = DllStructCreate($TAGCHOOSECOLOR) Local $TCC = DllStructCreate($CUSTCOLORS) If $IREFTYPE = 1 Then $ICOLORREF = Int($ICOLORREF) ElseIf $IREFTYPE = 2 Then $ICOLORREF = Hex(String($ICOLORREF), 6) $ICOLORREF = "0x" & StringMid($ICOLORREF, 5, 2) & StringMid($ICOLORREF, 3, 2) & StringMid($ICOLORREF, 1, 2) EndIf DllStructSetData($TCHOOSE, "Size", DllStructGetSize($TCHOOSE)) DllStructSetData($TCHOOSE, "hWndOwnder", $HWNDOWNDER) DllStructSetData($TCHOOSE, "rgbResult", $ICOLORREF) DllStructSetData($TCHOOSE, "CustColors", DllStructGetPtr($TCC)) DllStructSetData($TCHOOSE, "Flags", BitOR($__MISCCONSTANT_CC_ANYCOLOR, $__MISCCONSTANT_CC_FULLOPEN, $__MISCCONSTANT_CC_RGBINIT)) Local $ARESULT = DllCall("comdlg32.dll", "bool", "ChooseColor", "struct*", $TCHOOSE) If @error Then Return SetError(@error, @extended, -1) If $ARESULT[0] = 0 Then Return SetError(-3, -3, -1) Local $COLOR_PICKED = DllStructGetData($TCHOOSE, "rgbResult") If $IRETURNTYPE = 1 Then Return "0x" & Hex(String($COLOR_PICKED), 6) ElseIf $IRETURNTYPE = 2 Then $COLOR_PICKED = Hex(String($COLOR_PICKED), 6) Return "0x" & StringMid($COLOR_PICKED, 5, 2) & StringMid($COLOR_PICKED, 3, 2) & StringMid($COLOR_PICKED, 1, 2) ElseIf $IRETURNTYPE = 0 Then Return $COLOR_PICKED Else Return SetError(-4, -4, -1) EndIf EndFunc Func _CHOOSEFONT($SFONTNAME = "Courier New", $IPOINTSIZE = 10, $ICOLORREF = 0, $IFONTWEIGHT = 0, $IITALIC = False, $IUNDERLINE = False, $ISTRIKETHRU = False, $HWNDOWNER = 0) Local $ITALIC = 0, $UNDERLINE = 0, $STRIKEOUT = 0 Local $LNGDC = __MISC_GETDC(0) Local $LFHEIGHT = Round(($IPOINTSIZE * __MISC_GETDEVICECAPS($LNGDC, $LOGPIXELSX)) / 72, 0) __MISC_RELEASEDC(0, $LNGDC) Local $TCHOOSEFONT = DllStructCreate($TAGCHOOSEFONT) Local $TLOGFONT = DllStructCreate($TAGLOGFONT) DllStructSetData($TCHOOSEFONT, "Size", DllStructGetSize($TCHOOSEFONT)) DllStructSetData($TCHOOSEFONT, "hWndOwner", $HWNDOWNER) DllStructSetData($TCHOOSEFONT, "LogFont", DllStructGetPtr($TLOGFONT)) DllStructSetData($TCHOOSEFONT, "PointSize", $IPOINTSIZE) DllStructSetData($TCHOOSEFONT, "Flags", BitOR($CF_SCREENFONTS, $CF_PRINTERFONTS, $CF_EFFECTS, $CF_INITTOLOGFONTSTRUCT, $CF_NOSCRIPTSEL)) DllStructSetData($TCHOOSEFONT, "rgbColors", $ICOLORREF) DllStructSetData($TCHOOSEFONT, "FontType", 0) DllStructSetData($TLOGFONT, "Height", $LFHEIGHT) DllStructSetData($TLOGFONT, "Weight", $IFONTWEIGHT) DllStructSetData($TLOGFONT, "Italic", $IITALIC) DllStructSetData($TLOGFONT, "Underline", $IUNDERLINE) DllStructSetData($TLOGFONT, "Strikeout", $ISTRIKETHRU) DllStructSetData($TLOGFONT, "FaceName", $SFONTNAME) Local $ARESULT = DllCall("comdlg32.dll", "bool", "ChooseFontW", "struct*", $TCHOOSEFONT) If @error Then Return SetError(@error, @extended, -1) If $ARESULT[0] = 0 Then Return SetError(-3, -3, -1) Local $FONTNAME = DllStructGetData($TLOGFONT, "FaceName") If StringLen($FONTNAME) = 0 And StringLen($SFONTNAME) > 0 Then $FONTNAME = $SFONTNAME If DllStructGetData($TLOGFONT, "Italic") Then $ITALIC = 2 If DllStructGetData($TLOGFONT, "Underline") Then $UNDERLINE = 4 If DllStructGetData($TLOGFONT, "Strikeout") Then $STRIKEOUT = 8 Local $ATTRIBUTES = BitOR($ITALIC, $UNDERLINE, $STRIKEOUT) Local $SIZE = DllStructGetData($TCHOOSEFONT, "PointSize") / 10 Local $COLORREF = DllStructGetData($TCHOOSEFONT, "rgbColors") Local $WEIGHT = DllStructGetData($TLOGFONT, "Weight") Local $COLOR_PICKED = Hex(String($COLORREF), 6) Return StringSplit($ATTRIBUTES & "," & $FONTNAME & "," & $SIZE & "," & $WEIGHT & "," & $COLORREF & "," & "0x" & $COLOR_PICKED & "," & "0x" & StringMid($COLOR_PICKED, 5, 2) & StringMid($COLOR_PICKED, 3, 2) & StringMid($COLOR_PICKED, 1, 2), ",") EndFunc Func _CLIPPUTFILE($SFILE, $SSEPARATOR = "|") Local Const $GMEM_MOVEABLE = 2, $CF_HDROP = 15 $SFILE &= $SSEPARATOR & $SSEPARATOR Local $NGLOBMEMSIZE = 2 * (StringLen($SFILE) + 20) Local $ARESULT = DllCall("user32.dll", "bool", "OpenClipboard", "hwnd", 0) If @error Or $ARESULT[0] = 0 Then Return SetError(1, _WINAPI_GETLASTERROR(), False) Local $IERROR = 0, $ILASTERROR = 0 $ARESULT = DllCall("user32.dll", "bool", "EmptyClipboard") If @error Or Not $ARESULT[0] Then $IERROR = 2 $ILASTERROR = _WINAPI_GETLASTERROR() Else $ARESULT = DllCall("kernel32.dll", "handle", "GlobalAlloc", "uint", $GMEM_MOVEABLE, "ulong_ptr", $NGLOBMEMSIZE) If @error Or Not $ARESULT[0] Then $IERROR = 3 $ILASTERROR = _WINAPI_GETLASTERROR() Else Local $HGLOBAL = $ARESULT[0] $ARESULT = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $HGLOBAL) If @error Or Not $ARESULT[0] Then $IERROR = 4 $ILASTERROR = _WINAPI_GETLASTERROR() Else Local $HLOCK = $ARESULT[0] Local $DROPFILES = DllStructCreate("dword pFiles;" & $TAGPOINT & ";bool fNC;bool fWide;wchar[" & StringLen($SFILE) + 1 & "]", $HLOCK) If @error Then Return SetError(5, 6, False) Local $TEMPSTRUCT = DllStructCreate("dword;long;long;bool;bool") DllStructSetData($DROPFILES, "pFiles", DllStructGetSize($TEMPSTRUCT)) DllStructSetData($DROPFILES, "X", 0) DllStructSetData($DROPFILES, "Y", 0) DllStructSetData($DROPFILES, "fNC", 0) DllStructSetData($DROPFILES, "fWide", 1) DllStructSetData($DROPFILES, 6, $SFILE) For $I = 1 To StringLen($SFILE) If DllStructGetData($DROPFILES, 6, $I) = $SSEPARATOR Then DllStructSetData($DROPFILES, 6, Chr(0), $I) Next $ARESULT = DllCall("user32.dll", "handle", "SetClipboardData", "uint", $CF_HDROP, "handle", $HGLOBAL) If @error Or Not $ARESULT[0] Then $IERROR = 6 $ILASTERROR = _WINAPI_GETLASTERROR() EndIf $ARESULT = DllCall("kernel32.dll", "bool", "GlobalUnlock", "handle", $HGLOBAL) If (@error Or Not $ARESULT[0]) And Not $IERROR And _WINAPI_GETLASTERROR() Then $IERROR = 8 $ILASTERROR = _WINAPI_GETLASTERROR() EndIf EndIf $ARESULT = DllCall("kernel32.dll", "ptr", "GlobalFree", "handle", $HGLOBAL) If (@error Or $ARESULT[0]) And Not $IERROR Then $IERROR = 9 $ILASTERROR = _WINAPI_GETLASTERROR() EndIf EndIf EndIf $ARESULT = DllCall("user32.dll", "bool", "CloseClipboard") If (@error Or Not $ARESULT[0]) And Not $IERROR Then Return SetError(7, _WINAPI_GETLASTERROR(), False) If $IERROR Then Return SetError($IERROR, $ILASTERROR, False) Return True EndFunc Func _IIF($FTEST, $VTRUEVAL, $VFALSEVAL) If $FTEST Then Return $VTRUEVAL Else Return $VFALSEVAL EndIf EndFunc Func _MOUSETRAP($ILEFT = 0, $ITOP = 0, $IRIGHT = 0, $IBOTTOM = 0) Local $ARESULT If @NumParams == 0 Then $ARESULT = DllCall("user32.dll", "bool", "ClipCursor", "ptr", 0) If @error Or Not $ARESULT[0] Then Return SetError(1, _WINAPI_GETLASTERROR(), False) Else If @NumParams == 2 Then $IRIGHT = $ILEFT + 1 $IBOTTOM = $ITOP + 1 EndIf Local $TRECT = DllStructCreate($TAGRECT) DllStructSetData($TRECT, "Left", $ILEFT) DllStructSetData($TRECT, "Top", $ITOP) DllStructSetData($TRECT, "Right", $IRIGHT) DllStructSetData($TRECT, "Bottom", $IBOTTOM) $ARESULT = DllCall("user32.dll", "bool", "ClipCursor", "struct*", $TRECT) If @error Or Not $ARESULT[0] Then Return SetError(2, _WINAPI_GETLASTERROR(), False) EndIf Return True EndFunc Func _SINGLETON($SOCCURENCENAME, $IFLAG = 0) Local Const $ERROR_ALREADY_EXISTS = 183 Local Const $SECURITY_DESCRIPTOR_REVISION = 1 Local $TSECURITYATTRIBUTES = 0 If BitAND($IFLAG, 2) Then Local $TSECURITYDESCRIPTOR = DllStructCreate("byte;byte;word;ptr[4]") Local $ARET = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", "struct*", $TSECURITYDESCRIPTOR, "dword", $SECURITY_DESCRIPTOR_REVISION) If @error Then Return SetError(@error, @extended, 0) If $ARET[0] Then $ARET = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", "struct*", $TSECURITYDESCRIPTOR, "bool", 1, "ptr", 0, "bool", 0) If @error Then Return SetError(@error, @extended, 0) If $ARET[0] Then $TSECURITYATTRIBUTES = DllStructCreate($TAGSECURITY_ATTRIBUTES) DllStructSetData($TSECURITYATTRIBUTES, 1, DllStructGetSize($TSECURITYATTRIBUTES)) DllStructSetData($TSECURITYATTRIBUTES, 2, DllStructGetPtr($TSECURITYDESCRIPTOR)) DllStructSetData($TSECURITYATTRIBUTES, 3, 0) EndIf EndIf EndIf Local $HANDLE = DllCall("kernel32.dll", "handle", "CreateMutexW", "struct*", $TSECURITYATTRIBUTES, "bool", 1, "wstr", $SOCCURENCENAME) If @error Then Return SetError(@error, @extended, 0) Local $LASTERROR = DllCall("kernel32.dll", "dword", "GetLastError") If @error Then Return SetError(@error, @extended, 0) If $LASTERROR[0] = $ERROR_ALREADY_EXISTS Then If BitAND($IFLAG, 1) Then Return SetError($LASTERROR[0], $LASTERROR[0], 0) Else Exit -1 EndIf EndIf Return $HANDLE[0] EndFunc Func _ISPRESSED($SHEXKEY, $VDLL = "user32.dll") Local $A_R = DllCall($VDLL, "short", "GetAsyncKeyState", "int", "0x" & $SHEXKEY) If @error Then Return SetError(@error, @extended, False) Return BitAND($A_R[0], 32768) <> 0 EndFunc Func _VERSIONCOMPARE($SVERSION1, $SVERSION2) If $SVERSION1 = $SVERSION2 Then Return 0 Local $SEP = "." If StringInStr($SVERSION1, $SEP) = 0 Then $SEP = "," Local $AVERSION1 = StringSplit($SVERSION1, $SEP) Local $AVERSION2 = StringSplit($SVERSION2, $SEP) If UBound($AVERSION1) <> UBound($AVERSION2) Or UBound($AVERSION1) = 0 Then SetExtended(1) If $SVERSION1 > $SVERSION2 Then Return 1 ElseIf $SVERSION1 < $SVERSION2 Then Return -1 EndIf Else For $I = 1 To UBound($AVERSION1) - 1 If StringIsDigit($AVERSION1[$I]) And StringIsDigit($AVERSION2[$I]) Then If Number($AVERSION1[$I]) > Number($AVERSION2[$I]) Then Return 1 ElseIf Number($AVERSION1[$I]) < Number($AVERSION2[$I]) Then Return -1 EndIf Else SetExtended(1) If $AVERSION1[$I] > $AVERSION2[$I] Then Return 1 ElseIf $AVERSION1[$I] < $AVERSION2[$I] Then Return -1 EndIf EndIf Next EndIf Return SetError(2, 0, 0) EndFunc Func __MISC_GETDC($HWND) Local $ARESULT = DllCall("User32.dll", "handle", "GetDC", "hwnd", $HWND) If @error Or Not $ARESULT[0] Then Return SetError(1, _WINAPI_GETLASTERROR(), 0) Return $ARESULT[0] EndFunc Func __MISC_GETDEVICECAPS($HDC, $IINDEX) Local $ARESULT = DllCall("GDI32.dll", "int", "GetDeviceCaps", "handle", $HDC, "int", $IINDEX) If @error Then Return SetError(@error, @extended, 0) Return $ARESULT[0] EndFunc Func __MISC_RELEASEDC($HWND, $HDC) Local $ARESULT = DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $HWND, "handle", $HDC) If @error Then Return SetError(@error, @extended, False) Return $ARESULT[0] <> 0 EndFunc Func _FILECOUNTLINES($SFILEPATH) Local $HFILE = FileOpen($SFILEPATH, $FO_READ) If $HFILE = -1 Then Return SetError(1, 0, 0) Local $SFILECONTENT = StringStripWS(FileRead($HFILE), 2) FileClose($HFILE) Local $ATMP If StringInStr($SFILECONTENT, @LF) Then $ATMP = StringSplit(StringStripCR($SFILECONTENT), @LF) ElseIf StringInStr($SFILECONTENT, @CR) Then $ATMP = StringSplit($SFILECONTENT, @CR) Else If StringLen($SFILECONTENT) Then Return 1 Else Return SetError(2, 0, 0) EndIf EndIf Return $ATMP[0] EndFunc Func _FILECREATE($SFILEPATH) Local $HOPENFILE = FileOpen($SFILEPATH, $FO_OVERWRITE) If $HOPENFILE = -1 Then Return SetError(1, 0, 0) Local $HWRITEFILE = FileWrite($HOPENFILE, "") FileClose($HOPENFILE) If $HWRITEFILE = -1 Then Return SetError(2, 0, 0) Return 1 EndFunc Func _FILELISTTOARRAY($SPATH, $SFILTER = "*", $IFLAG = 0) Local $HSEARCH, $SFILE, $SFILELIST, $SDELIM = "|" $SPATH = StringRegExpReplace($SPATH, "[\\/]+\z", "") & "\" If Not FileExists($SPATH) Then Return SetError(1, 1, "") If StringRegExp($SFILTER, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "") If Not ($IFLAG = 0 Or $IFLAG = 1 Or $IFLAG = 2) Then Return SetError(3, 3, "") $HSEARCH = FileFindFirstFile($SPATH & $SFILTER) If @error Then Return SetError(4, 4, "") While 1 $SFILE = FileFindNextFile($HSEARCH) If @error Then ExitLoop If ($IFLAG + @extended = 2) Then ContinueLoop $SFILELIST &= $SDELIM & $SFILE WEnd FileClose($HSEARCH) If Not $SFILELIST Then Return SetError(4, 4, "") Return StringSplit(StringTrimLeft($SFILELIST, 1), "|") EndFunc Func _FILEPRINT($S_FILE, $I_SHOW = @SW_HIDE) Local $A_RET = DllCall("shell32.dll", "int", "ShellExecuteW", "hwnd", 0, "wstr", "print", "wstr", $S_FILE, "wstr", "", "wstr", "", "int", $I_SHOW) If @error Then Return SetError(@error, @extended, 0) If $A_RET[0] <= 32 Then Return SetError(10, $A_RET[0], 0) Return 1 EndFunc Func _FILEREADTOARRAY($SFILEPATH, ByRef $AARRAY) Local $HFILE = FileOpen($SFILEPATH, $FO_READ) If $HFILE = -1 Then Return SetError(1, 0, 0) Local $AFILE = FileRead($HFILE, FileGetSize($SFILEPATH)) If StringRight($AFILE, 1) = @LF Then $AFILE = StringTrimRight($AFILE, 1) If StringRight($AFILE, 1) = @CR Then $AFILE = StringTrimRight($AFILE, 1) FileClose($HFILE) If StringInStr($AFILE, @LF) Then $AARRAY = StringSplit(StringStripCR($AFILE), @LF) ElseIf StringInStr($AFILE, @CR) Then $AARRAY = StringSplit($AFILE, @CR) Else If StringLen($AFILE) Then Dim $AARRAY[2] = [1, $AFILE] Else Return SetError(2, 0, 0) EndIf EndIf Return 1 EndFunc Func _FILEWRITEFROMARRAY($FILE, $A_ARRAY, $I_BASE = 0, $I_UBOUND = 0, $S_DELIM = "|") If Not IsArray($A_ARRAY) Then Return SetError(2, 0, 0) Local $IDIMS = UBound($A_ARRAY, 0) If $IDIMS > 2 Then Return SetError(4, 0, 0) Local $LAST = UBound($A_ARRAY) - 1 If $I_UBOUND < 1 Or $I_UBOUND > $LAST Then $I_UBOUND = $LAST If $I_BASE < 0 Or $I_BASE > $LAST Then $I_BASE = 0 Local $HFILE If IsString($FILE) Then $HFILE = FileOpen($FILE, $FO_OVERWRITE) Else $HFILE = $FILE EndIf If $HFILE = -1 Then Return SetError(1, 0, 0) Local $ERRORSAV = 0 Switch $IDIMS Case 1 For $X = $I_BASE To $I_UBOUND If FileWrite($HFILE, $A_ARRAY[$X] & @CRLF) = 0 Then $ERRORSAV = 3 ExitLoop EndIf Next Case 2 Local $S_TEMP For $X = $I_BASE To $I_UBOUND $S_TEMP = $A_ARRAY[$X][0] For $Y = 1 To $IDIMS $S_TEMP &= $S_DELIM & $A_ARRAY[$X][$Y] Next If FileWrite($HFILE, $S_TEMP & @CRLF) = 0 Then $ERRORSAV = 3 ExitLoop EndIf Next EndSwitch If IsString($FILE) Then FileClose($HFILE) If $ERRORSAV Then Return SetError($ERRORSAV, 0, 0) Return 1 EndFunc Func _FILEWRITELOG($SLOGPATH, $SLOGMSG, $IFLAG = -1) Local $HOPENFILE = $SLOGPATH, $IOPENMODE = $FO_APPEND Local $SDATENOW = @YEAR & "-" & @MON & "-" & @MDAY Local $STIMENOW = @HOUR & ":" & @MIN & ":" & @SEC Local $SMSG = $SDATENOW & " " & $STIMENOW & " : " & $SLOGMSG If $IFLAG <> -1 Then $SMSG &= @CRLF & FileRead($SLOGPATH) $IOPENMODE = $FO_OVERWRITE EndIf If IsString($SLOGPATH) Then $HOPENFILE = FileOpen($SLOGPATH, $IOPENMODE) If $HOPENFILE = -1 Then Return SetError(1, 0, 0) EndIf EndIf Local $IRETURN = FileWriteLine($HOPENFILE, $SMSG) If IsString($SLOGPATH) Then $IRETURN = FileClose($HOPENFILE) EndIf If $IRETURN <= 0 Then Return SetError(2, $IRETURN, 0) EndIf Return $IRETURN EndFunc Func _FILEWRITETOLINE($SFILE, $ILINE, $STEXT, $FOVERWRITE = 0) If $ILINE <= 0 Then Return SetError(4, 0, 0) If Not IsString($STEXT) Then $STEXT = String($STEXT) If $STEXT = "" Then Return SetError(6, 0, 0) EndIf If $FOVERWRITE <> 0 And $FOVERWRITE <> 1 Then Return SetError(5, 0, 0) If Not FileExists($SFILE) Then Return SetError(2, 0, 0) Local $SREAD_FILE = FileRead($SFILE) Local $ASPLIT_FILE = StringSplit(StringStripCR($SREAD_FILE), @LF) If UBound($ASPLIT_FILE) < $ILINE Then Return SetError(1, 0, 0) Local $IENCODING = FILEGETENCODING($SFILE) Local $HFILE = FileOpen($SFILE, $IENCODING + $FO_OVERWRITE) If $HFILE = -1 Then Return SetError(3, 0, 0) $SREAD_FILE = "" For $I = 1 To $ASPLIT_FILE[0] If $I = $ILINE Then If $FOVERWRITE = 1 Then If $STEXT <> "" Then $SREAD_FILE &= $STEXT & @CRLF Else $SREAD_FILE &= $STEXT & @CRLF & $ASPLIT_FILE[$I] & @CRLF EndIf ElseIf $I < $ASPLIT_FILE[0] Then $SREAD_FILE &= $ASPLIT_FILE[$I] & @CRLF ElseIf $I = $ASPLIT_FILE[0] Then $SREAD_FILE &= $ASPLIT_FILE[$I] EndIf Next FileWrite($HFILE, $SREAD_FILE) FileClose($HFILE) Return 1 EndFunc Func _PATHFULL($SRELATIVEPATH, $SBASEPATH = @WorkingDir) If Not $SRELATIVEPATH Or $SRELATIVEPATH = "." Then Return $SBASEPATH Local $SFULLPATH = StringReplace($SRELATIVEPATH, "/", "\") Local Const $SFULLPATHCONST = $SFULLPATH Local $SPATH Local $BROOTONLY = StringLeft($SFULLPATH, 1) = "\" And StringMid($SFULLPATH, 2, 1) <> "\" For $I = 1 To 2 $SPATH = StringLeft($SFULLPATH, 2) If $SPATH = "\\" Then $SFULLPATH = StringTrimLeft($SFULLPATH, 2) Local $NSERVERLEN = StringInStr($SFULLPATH, "\") - 1 $SPATH = "\\" & StringLeft($SFULLPATH, $NSERVERLEN) $SFULLPATH = StringTrimLeft($SFULLPATH, $NSERVERLEN) ExitLoop ElseIf StringRight($SPATH, 1) = ":" Then $SFULLPATH = StringTrimLeft($SFULLPATH, 2) ExitLoop Else $SFULLPATH = $SBASEPATH & "\" & $SFULLPATH EndIf Next If $I = 3 Then Return "" If StringLeft($SFULLPATH, 1) <> "\" Then If StringLeft($SFULLPATHCONST, 2) = StringLeft($SBASEPATH, 2) Then $SFULLPATH = $SBASEPATH & "\" & $SFULLPATH Else $SFULLPATH = "\" & $SFULLPATH EndIf EndIf Local $ATEMP = StringSplit($SFULLPATH, "\") Local $APATHPARTS[$ATEMP[0]], $J = 0 For $I = 2 To $ATEMP[0] If $ATEMP[$I] = ".." Then If $J Then $J -= 1 ElseIf Not ($ATEMP[$I] = "" And $I <> $ATEMP[0]) And $ATEMP[$I] <> "." Then $APATHPARTS[$J] = $ATEMP[$I] $J += 1 EndIf Next $SFULLPATH = $SPATH If Not $BROOTONLY Then For $I = 0 To $J - 1 $SFULLPATH &= "\" & $APATHPARTS[$I] Next Else $SFULLPATH &= $SFULLPATHCONST If StringInStr($SFULLPATH, "..") Then $SFULLPATH = _PATHFULL($SFULLPATH) EndIf While StringInStr($SFULLPATH, ".\") $SFULLPATH = StringReplace($SFULLPATH, ".\", "\") WEnd Return $SFULLPATH EndFunc Func _PATHGETRELATIVE($SFROM, $STO) If StringRight($SFROM, 1) <> "\" Then $SFROM &= "\" If StringRight($STO, 1) <> "\" Then $STO &= "\" If $SFROM = $STO Then Return SetError(1, 0, StringTrimRight($STO, 1)) Local $ASFROM = StringSplit($SFROM, "\") Local $ASTO = StringSplit($STO, "\") If $ASFROM[1] <> $ASTO[1] Then Return SetError(2, 0, StringTrimRight($STO, 1)) Local $I = 2 Local $IDIFF = 1 While 1 If $ASFROM[$I] <> $ASTO[$I] Then $IDIFF = $I ExitLoop EndIf $I += 1 WEnd $I = 1 Local $SRELPATH = "" For $J = 1 To $ASTO[0] If $I >= $IDIFF Then $SRELPATH &= "\" & $ASTO[$I] EndIf $I += 1 Next $SRELPATH = StringTrimLeft($SRELPATH, 1) $I = 1 For $J = 1 To $ASFROM[0] If $I > $IDIFF Then $SRELPATH = "..\" & $SRELPATH EndIf $I += 1 Next If StringRight($SRELPATH, 1) == "\" Then $SRELPATH = StringTrimRight($SRELPATH, 1) Return $SRELPATH EndFunc Func _PATHMAKE($SZDRIVE, $SZDIR, $SZFNAME, $SZEXT) If StringLen($SZDRIVE) Then If Not (StringLeft($SZDRIVE, 2) = "\\") Then $SZDRIVE = StringLeft($SZDRIVE, 1) & ":" EndIf If StringLen($SZDIR) Then If Not (StringRight($SZDIR, 1) = "\") And Not (StringRight($SZDIR, 1) = "/") Then $SZDIR = $SZDIR & "\" EndIf If StringLen($SZEXT) Then If Not (StringLeft($SZEXT, 1) = ".") Then $SZEXT = "." & $SZEXT EndIf Return $SZDRIVE & $SZDIR & $SZFNAME & $SZEXT EndFunc Func _PATHSPLIT($SZPATH, ByRef $SZDRIVE, ByRef $SZDIR, ByRef $SZFNAME, ByRef $SZEXT) Local $DRIVE = "" Local $DIR = "" Local $FNAME = "" Local $EXT = "" Local $POS Local $ARRAY[5] $ARRAY[0] = $SZPATH If StringMid($SZPATH, 2, 1) = ":" Then $DRIVE = StringLeft($SZPATH, 2) $SZPATH = StringTrimLeft($SZPATH, 2) ElseIf StringLeft($SZPATH, 2) = "\\" Then $SZPATH = StringTrimLeft($SZPATH, 2) $POS = StringInStr($SZPATH, "\") If $POS = 0 Then $POS = StringInStr($SZPATH, "/") If $POS = 0 Then $DRIVE = "\\" & $SZPATH $SZPATH = "" Else $DRIVE = "\\" & StringLeft($SZPATH, $POS - 1) $SZPATH = StringTrimLeft($SZPATH, $POS - 1) EndIf EndIf Local $NPOSFORWARD = StringInStr($SZPATH, "/", 0, -1) Local $NPOSBACKWARD = StringInStr($SZPATH, "\", 0, -1) If $NPOSFORWARD >= $NPOSBACKWARD Then $POS = $NPOSFORWARD Else $POS = $NPOSBACKWARD EndIf $DIR = StringLeft($SZPATH, $POS) $FNAME = StringRight($SZPATH, StringLen($SZPATH) - $POS) If StringLen($DIR) = 0 Then $FNAME = $SZPATH $POS = StringInStr($FNAME, ".", 0, -1) If $POS Then $EXT = StringRight($FNAME, StringLen($FNAME) - ($POS - 1)) $FNAME = StringLeft($FNAME, $POS - 1) EndIf $SZDRIVE = $DRIVE $SZDIR = $DIR $SZFNAME = $FNAME $SZEXT = $EXT $ARRAY[1] = $DRIVE $ARRAY[2] = $DIR $ARRAY[3] = $FNAME $ARRAY[4] = $EXT Return $ARRAY EndFunc Func _REPLACESTRINGINFILE($SZFILENAME, $SZSEARCHSTRING, $SZREPLACESTRING, $FCASENESS = 0, $FOCCURANCE = 1) Local $IRETVAL = 0 Local $NCOUNT, $SENDSWITH If StringInStr(FileGetAttrib($SZFILENAME), "R") Then Return SetError(6, 0, -1) Local $HFILE = FileOpen($SZFILENAME, $FO_READ) If $HFILE = -1 Then Return SetError(1, 0, -1) Local $S_TOTFILE = FileRead($HFILE, FileGetSize($SZFILENAME)) If StringRight($S_TOTFILE, 2) = @CRLF Then $SENDSWITH = @CRLF ElseIf StringRight($S_TOTFILE, 1) = @CR Then $SENDSWITH = @CR ElseIf StringRight($S_TOTFILE, 1) = @LF Then $SENDSWITH = @LF Else $SENDSWITH = "" EndIf Local $AFILELINES = StringSplit(StringStripCR($S_TOTFILE), @LF) FileClose($HFILE) Local $IENCODING = FILEGETENCODING($SZFILENAME) Local $HWRITEHANDLE = FileOpen($SZFILENAME, $IENCODING + $FO_OVERWRITE) If $HWRITEHANDLE = -1 Then Return SetError(2, 0, -1) For $NCOUNT = 1 To $AFILELINES[0] If StringInStr($AFILELINES[$NCOUNT], $SZSEARCHSTRING, $FCASENESS) Then $AFILELINES[$NCOUNT] = StringReplace($AFILELINES[$NCOUNT], $SZSEARCHSTRING, $SZREPLACESTRING, 1 - $FOCCURANCE, $FCASENESS) $IRETVAL = $IRETVAL + 1 If $FOCCURANCE = 0 Then $IRETVAL = 1 ExitLoop EndIf EndIf Next For $NCOUNT = 1 To $AFILELINES[0] - 1 If FileWriteLine($HWRITEHANDLE, $AFILELINES[$NCOUNT]) = 0 Then FileClose($HWRITEHANDLE) Return SetError(3, 0, -1) EndIf Next If $AFILELINES[$NCOUNT] <> "" Then FileWrite($HWRITEHANDLE, $AFILELINES[$NCOUNT] & $SENDSWITH) FileClose($HWRITEHANDLE) Return $IRETVAL EndFunc Func _TEMPFILE($S_DIRECTORYNAME = @TempDir, $S_FILEPREFIX = "~", $S_FILEEXTENSION = ".tmp", $I_RANDOMLENGTH = 7) If IsKeyword($S_FILEPREFIX) Then $S_FILEPREFIX = "~" If IsKeyword($S_FILEEXTENSION) Then $S_FILEEXTENSION = ".tmp" If IsKeyword($I_RANDOMLENGTH) Then $I_RANDOMLENGTH = 7 If Not FileExists($S_DIRECTORYNAME) Then $S_DIRECTORYNAME = @TempDir If Not FileExists($S_DIRECTORYNAME) Then $S_DIRECTORYNAME = @ScriptDir If StringRight($S_DIRECTORYNAME, 1) <> "\" Then $S_DIRECTORYNAME = $S_DIRECTORYNAME & "\" Local $S_TEMPNAME Do $S_TEMPNAME = "" While StringLen($S_TEMPNAME) < $I_RANDOMLENGTH $S_TEMPNAME = $S_TEMPNAME & Chr(Random(97, 122, 1)) WEnd $S_TEMPNAME = $S_DIRECTORYNAME & $S_FILEPREFIX & $S_TEMPNAME & $S_FILEEXTENSION Until Not FileExists($S_TEMPNAME) Return $S_TEMPNAME EndFunc #RequireAdmin Global $HMAIN, $HEDIT, $CLOSEBUTTON, $DIR Local $ANSWER = MsgBox(4, "TL Simgesi Örnek Kurulumu", "Bu program bilgisayarınıza TL simgesini içeren örnek bir yazı tipi kuracaktır.") If $ANSWER = 7 Then Exit EndIf $DIR = @ProgramFilesDir & "\TCMB\" DirCreate($DIR) DirCreate($DIR & "WebPage") DirCreate($DIR & "WebPage\css") DirCreate($DIR & "WebPage\images") FileInstall("tcmb.ico", $DIR, 1) FileInstall("SIL Open Font License 1.1.txt", $DIR, 1) FileInstall("Font\AbakuTLSymSans-Regular.ttf", $DIR, 1) FileInstall("TLSimgeKisayol.exe", $DIR, 1) FileInstall("WebPage\index.html", $DIR & "WebPage\", 1) FileInstall("WebPage\css\buttons.css", $DIR & "WebPage\css\", 1) FileInstall("WebPage\css\iefont.css", $DIR & "WebPage\css\", 1) FileInstall("WebPage\css\layout.css", $DIR & "WebPage\css\", 1) FileInstall("WebPage\css\reset.css", $DIR & "WebPage\css\", 1) FileInstall("WebPage\css\typography.css", $DIR & "WebPage\css\", 1) FileInstall("WebPage\images\horizontal.png", $DIR & "WebPage\images\", 1) FileInstall("WebPage\images\logo.png", $DIR & "WebPage\images\", 1) FileInstall("WebPage\images\secondary.png", $DIR & "WebPage\images\", 1) FileInstall("WebPage\images\secondary-newer.png", $DIR & "WebPage\images\", 1) FileInstall("WebPage\images\vertical-2.png", $DIR & "WebPage\images\", 1) DirCreate(@StartMenuDir & "\TCMB\") FileCreateShortcut($DIR & "TLSimgeKisayol.exe", @StartMenuDir & "\TCMB\TL Simgesi Kısayolunu Etkinleştir") $ICON = $DIR & "tcmb.ico" TraySetIcon($ICON) INSTALLFONT($DIR & "AbakuTLSymSans-Regular.ttf") ShellExecute($DIR & "TLSimgeKisayol.exe") ShellExecute($DIR & "WebPage\index.html") Func INSTALLFONT($SSOURCEFILE, $SFONTDESCRIPT = "", $SFONTSPATH = "") Local Const $HWND_BROADCAST = 65535 Local Const $WM_FONTCHANGE = 29 If $SFONTSPATH = "" Then $SFONTSPATH = @WindowsDir & "\Fonts" Local $SFONTNAME = StringRegExpReplace($SSOURCEFILE, "^.*\\", "") If Not FileCopy($SSOURCEFILE, $SFONTSPATH & "\" & $SFONTNAME, 1) Then Return SetError(1, 0, 0) Local $HSEARCH = FileFindFirstFile($SSOURCEFILE) Local $IFONTISWILDCARD = StringRegExp($SFONTNAME, "\*|\?") Local $ARET, $HGDI32_DLLOPEN = DllOpen("gdi32.dll") If $HSEARCH = -1 Then Return SetError(2, 0, 0) If $HGDI32_DLLOPEN = -1 Then Return SetError(3, 0, 0) While $SFONTNAME <> "" $SFONTNAME = FileFindNextFile($HSEARCH) If @error Then ExitLoop If $IFONTISWILDCARD Then $SFONTDESCRIPT = StringRegExpReplace($SFONTNAME, "\.[^\.]*$", "") $ARET = DllCall($HGDI32_DLLOPEN, "Int", "AddFontResource", "str", $SFONTSPATH & "\" & $SFONTNAME) If IsArray($ARET) And $ARET[0] > 0 Then RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", $SFONTDESCRIPT, "REG_SZ", $SFONTSPATH & "\" & $SFONTNAME) EndIf WEnd DllClose($HGDI32_DLLOPEN) DllCall("user32.dll", "Int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_FONTCHANGE, "int", 0, "int", 0) Return 1 EndFunc [/codebox] Edited March 1, 2012 by MeHMeTBeN Quote Link to comment Share on other sites More sharing options...
cemderya Posted March 1, 2012 Share Posted March 1, 2012 bi kişide yazsın şu simgeyi Quote Link to comment Share on other sites More sharing options...
Bay_RC Posted March 1, 2012 Author Share Posted March 1, 2012 (edited) [quote name='cemderya' date='01 March 2012 - 12:23 ' timestamp='1330604638' post='1163329'] bi kişide yazsın şu simgeyi [/quote] dediğim gibi tnctr desteklemiyor. Ama TNCTR ailesi olarak kanaatimce bu programı* biraz geliştirip tnctr'ye de eklenmesini sağlayabiliriz. Edited March 1, 2012 by sere Quote Link to comment Share on other sites More sharing options...
El-Arabi Posted March 1, 2012 Share Posted March 1, 2012 Haç işaretine benzemiş Quote Link to comment Share on other sites More sharing options...
Bay_RC Posted March 1, 2012 Author Share Posted March 1, 2012 bence güzel olmuş euro'dan bazı be3nzerlikjler var euroda yatay bizde / şeklinde. Ama ben beğendim. Yazması kolay iyi oldu bence. Quote Link to comment Share on other sites More sharing options...
Mehmet Posted March 1, 2012 Share Posted March 1, 2012 [quote name='cemderya' date='01 March 2012 - 14:23 ' timestamp='1330604638' post='1163329'] bi kişide yazsın şu simgeyi [/quote] photoshop ve metin belgesinde rahatlık yapabiliyoruz bak buda örneği [img]http://i.imgur.com/PfDyL.jpg[/img] metin belgesi [img]http://i.imgur.com/h7mYJ.jpg[/img] Quote Link to comment Share on other sites More sharing options...
KintaRo Posted March 1, 2012 Share Posted March 1, 2012 [img]http://galeri3.uludagsozluk.com/187/tl-simgesi-yar%C4%B1%C5%9Fmas%C4%B1nda-finale-kalan-tasar%C4%B1mlar_227111.jpg[/img] bu daha guzel bence.[quote name='MeHMeTBeN' date='01 March 2012 - 14:49 ' timestamp='1330606193' post='1163347'] photoshop ve metin belgesinde rahatlık yapabiliyoruz bak buda örneği [img]http://i.imgur.com/PfDyL.jpg[/img] metin belgesi [img]http://i.imgur.com/h7mYJ.jpg[/img] [/quote] lafım sana değil yanlış anlama da, emolara gün doğdu, artık b yerine ß yazdıkları gibi t yerinede bu simgeyi kullanırlar artık. Quote Link to comment Share on other sites More sharing options...
bozart Posted March 1, 2012 Share Posted March 1, 2012 (edited) şemsiye sap ına benziyor :::):))::) logo yu yapanda sap olması gerek herhalde Edited March 1, 2012 by bozart Quote Link to comment Share on other sites More sharing options...
cibo34 Posted March 1, 2012 Share Posted March 1, 2012 arkdaşlar başlamışlar hemen hac işaretine benziyor diye ne içiyolarsa nasıl benzetmişler tebrik ederim bence alfabedeki t harfi daha cok benziyor:) ama yazımı zor bence düz olsaydı daha kullanışlı olurdu. Quote Link to comment Share on other sites More sharing options...
rammstein984 Posted March 1, 2012 Share Posted March 1, 2012 memleketimizin bütün sorunlarını çözdülerde eksik kalan bi tek tl simgesi vardı onuda hallettiler çılgın proje... Quote Link to comment Share on other sites More sharing options...
vinsanity-10 Posted March 1, 2012 Share Posted March 1, 2012 [b][b]Rammstein kardeş memleketin tüm sorunları çözülsede sen yeni bir sorun bulursun nasılsa bu zihniyetle o yüzden konuya cevap yazarak kendini yormuşsun yazık olmuş [/b][/b] Quote Link to comment Share on other sites More sharing options...
MasterWoo Posted March 1, 2012 Share Posted March 1, 2012 (edited) [img]http://www.gazeteport.com.tr/i/n/133060588469244.jpg[/img] Ne iş ? Edited March 1, 2012 by F.unal Quote Link to comment Share on other sites More sharing options...
muan Posted March 1, 2012 Share Posted March 1, 2012 Yemin ediyorum ne kadar gereksiz mevzu var bizde , şimdi eskisinin neyi yetmedide böyle bir yola başvuruldu, çıkan sonuca bak sen. Neye benziyor çağrışımı nedir çözemedim. Quote Link to comment Share on other sites More sharing options...
Guest _ULTIMATE_ Posted March 1, 2012 Share Posted March 1, 2012 Vatana millete hayırlı olsun diyen bir kişi bile çıkmamış yahu Ben diyorum. Quote Link to comment Share on other sites More sharing options...
bates54 Posted March 1, 2012 Share Posted March 1, 2012 az daha uğraşsalarmış euro ya benzeyecekmiş. € ama yine de en azından böyle birşey düşünülmüş, bence de bir logomuz olmalıydı Quote Link to comment Share on other sites More sharing options...
MasterWoo Posted March 1, 2012 Share Posted March 1, 2012 [quote name='&ULTİMATE&' date='01 March 2012 - 15:59 ' timestamp='1330610395' post='1163407'] Vatana millete hayırlı olsun diyen bir kişi bile çıkmamış yahu Ben diyorum. [/quote] İş işten geçmiş saten tabikide vatana millete hayırlı olsunda çok ugraşmışlar ama benzetememişler ne euroya nede ermeni para birimine [quote name='bates54' date='01 March 2012 - 16:04 ' timestamp='1330610668' post='1163415'] az daha uğraşsalarmış euro ya benzeyecekmiş. ama yine de en azından böyle birşey düşünülmüş, bence de bir logomuz olmalıydı [/quote] Quote Link to comment Share on other sites More sharing options...
Bay_RC Posted March 1, 2012 Author Share Posted March 1, 2012 [quote name='muan' date='01 March 2012 - 14:20 ' timestamp='1330611609' post='1163424'] Komik bir benzetmede Vatan Gazetesi sitesinde zuaaaaa bir millet kendi para birimi ile bu kadar dalga geçiyor ise o para birimi için ne denebilir ki. [img]http://www.tnctr.com/uploads/imgs/pre_1330611553__tl.jpg[/img] [/quote] alem adamsın arkadaşlar TL Simgesi deneme sayfasında aynen şöyle bir örnek verilmiş. [img]http://www.tnctr.com/uploads/imgs/pre_1330611788__capture1.jpg[/img] Yukardakine göre bir tutar yazarken aynen yukarda görüldüğü gibi tl simgesini rakamın başına mı ekleyecez?arkadaşlar TL Simgesi deneme sayfasında aynen şöyle bir örnek verilmiş. [img]http://www.tnctr.com/uploads/imgs/pre_1330611788__capture1.jpg[/img] Yukardakine göre bir tutar yazarken aynen yukarda görüldüğü gibi tl simgesini rakamın başına mı ekleyecez? Quote Link to comment Share on other sites More sharing options...
ozanaus Posted March 1, 2012 Share Posted March 1, 2012 hayırlı olsun kabullenmekten başka çare yok ama ermeni simgesini andırıyor gercekten, bu eremenı deıl de başka bır ulke de olabılırdı, bize has daha farklı bişey olabılırdı ermenı sımgesınden tek farkı; ters ve yamuk olması Quote Link to comment Share on other sites More sharing options...
bates54 Posted March 1, 2012 Share Posted March 1, 2012 hiçbir para biriminin simgesinin rakam başında yazıldığını görmedim. metin yazarken sonda olur simge ama internet sitelerinde kurlar gösterilirken kolaylık olsun diye başta gözüküyor simge Quote Link to comment Share on other sites More sharing options...
ayhankorkmaz Posted March 1, 2012 Share Posted March 1, 2012 Hep boş işlerle uğraşan idarecilerimiz var başta. sadece göz boyama ve onuda iyi yapıyorlar helal olsun Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted March 1, 2012 Share Posted March 1, 2012 [font="Garamond"][size="3"][color="#000000"] Şaka bir yana adamlar programı AutoIt ile yazmış Şaşırdım doğrusu ayrıca kodlara baktım öyle basit fonksiyonlarda değil ama grafikt tasarımdan anlayan biri olarak tasarım hoşuma gitti basit ve sade bize yakışır.Hayırlı olsun.. [/color][/size][/font][size="3"][color="#000000"] [/color][/size] Quote Link to comment Share on other sites More sharing options...
bates54 Posted March 1, 2012 Share Posted March 1, 2012 bu arada yeni simgenin şifresi çözülmüş arkadaşlar [img]http://a2.sphotos.ak.fbcdn.net/hphotos-ak-ash4/s320x320/427129_311887212199329_109532732434779_801114_691313499_n.jpg[/img] Quote Link to comment Share on other sites More sharing options...
muan Posted March 1, 2012 Share Posted March 1, 2012 Türkiye için bu kadar önemli bir konuda, bu kadar benzerlik olması ve hiç kontrol edilmemesini ayıplamamak elde değil. TL hem orjinal hemde eşi benzeri yoktu. HEMDE TÜRKÇE İDİ. [img]http://www.tnctr.com/uploads/imgs/pre_1330613263__tl_ermeni.jpg[/img] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.