gibi bir hata gelmektedir. Aslında bir zamanlar bu hata gelmeden normal olarak çalışan bu IDE bir windows güncellemesi sonrası böyle bir durumu ortaya çıkarmıştır. İlgili güncellemeyi bulup kaldırmak pek içime sinmediğinden bu dosyayı ortadan kaldırarak sorunu çözmek gerekmektedir. Tabi dosya Windows kapatılmadan silinemiyor, bunun yerine ismini değiştirdikten sonra Delphi'yi açarak problemi gidermek mümkündür. Aşağıdaki örnek çözümler Delphi 2005'e (%PROGRAMFILES%\Borland\BDS\3.0\Bin\bds.exe) göredir.---------------------------
Error
---------------------------
Cannot create file "C:\Users\USERNAME\AppData\Local\Temp\EditorLineEnds.ttr". Dosya başka bir işlem tarafından kullanıldığından bu işlem dosyaya erişemiyor.
---------------------------
OK
---------------------------
Çözüm 1 (YeniDelphi.bat Dosyası)..:
Çözüm 2 (YeniDelphi.vbs Visual Basic Script Dosyası)..:YeniDelphi.bat yazdı:Kod: Tümünü seç
@echo off set uz=.ttr set kd=EditorLineEnds set sablon=%TEMP%\%kd% set dosya=%sablon%%uz% set /a adet=0 ::set yeni_dosya=%sablon%%adet%%uz% del "%sablon%*.ttr" :YENI_DOSYA_ADI set /a adet += 1 set yeni_dosya=%sablon%%adet%.ttr if exist %yeni_dosya% goto :YENI_DOSYA_ADI if exist "%dosya%" ren "%dosya%" "%kd%%adet%%uz%" set delphi="%PROGRAMFILES%\Borland\BDS\3.0\Bin\bds.exe" if exist "%delphi%" ( rem echo "test" ) else ( set delphi="%PROGRAMFILES(X86)%\Borland\BDS\3.0\Bin\bds.exe" ) %delphi%
Örnek dosyalardan birisini Windows gezgininde oluşturduktan sonra çalıştırınca "EditorLineEnds?.ttr" dosya ismini uygun rakamı bularak değiştirdikten sonra Delphi 2005'i açmaktadır. Tabi bu dosyalar bir sonraki yeniden başlatılan Windows oturumunda silineceklerdir. Bilerek ve isteyerek konu ile alakalı Delphi örneği yazmadım, ilgilenen olursa konunun Delphi karşılığını yazarak üçüncü yöntemi cevap olarak ekleyebilirYeniDelphi.vbs yazdı:Kod: Tümünü seç
Dim ws, ds, uz, kd, sablon, dosya, adet, yeni_dosya, komut, sysdsy, delphi set ws=CreateObject("WScript.Shell") set ds=CreateObject("Scripting.FileSystemObject") uz=".ttr" kd="EditorLineEnds" sablon=ws.ExpandEnvironmentStrings("%Temp%") & "\" & kd dosya=sablon & uz adet=0 komut = """" & ws.ExpandEnvironmentStrings("%comspec%") & """ /c del """ & sablon & "*" & uz & """" ws.Run komut, 0 'dosyaları silmeye çalışır if ds.FileExists(dosya) then do adet=adet+1 yeni_dosya=sablon & adet & uz loop until not ds.FileExists(yeni_dosya) set sysdsy=ds.GetFile(dosya) sysdsy.name=kd & adet & uz end if delphi=ws.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\Borland\BDS\3.0\Bin\bds.exe" if not ds.FileExists(delphi) then delphi=ws.ExpandEnvironmentStrings("%PROGRAMFILES(X86)%") & "\Borland\BDS\3.0\Bin\bds.exe" end if ws.Run """" & delphi & """", 1, True