Windowsu kapatmadan 2. Defa açılamayan Delphi (2005-2010)

[sabanakman]

İyi günler. Eğer Delphi 2005, 2010 ve arasında kalan versiyonlardan birine sahipseniz, vista, win7 ve üstü windowslarda ilk Delphi'yi açtıktan sonra 2. bir Delphi'yi açarken

---------------------------
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
---------------------------

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.

Çözüm 1 (YeniDelphi.bat Dosyası)..:

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%

Çözüm 2 (YeniDelphi.vbs Visual Basic Script Dosyası)..:

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

Ö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 ekleyebilir

[G.Arkas]

Şaban hocam çok teşekkürler. Bende 2007 sürümünde bu problem ile karşılaştım. Windows 8.1'in bir güncellemesi buna sebep oluyormuş aşağıda bir uygulama var bunu kullanarak çözüme ulaştım. Başlangıç'a atarsanız hiçbir ayar yapmadan Delphi'yi çalıştırabilirsiniz. Alternatif bir uygulama olarak kullanılabilir.

İyi çalışmalar...

https://www.sendspace.com/file/1iaagq

[sabanakman]

Bu da ilgili dosyayı siliyormuş . Açık kaynak değil sanırım

[G.Arkas]

Evet hocam bende bir siteden bulmuştum. Açık kaynak değil maalesef ama basit bir iş. Yazar paylaşırız İnşAllah.