Autoit

[mrecep38]

 
_Startup_Del("Babylon.ink")
_Startup_Del("Babylon Games.ink")
Func _Startup_Del($FileName = "")
	Local $PR1 = @DesktopDir & ""
	Local $PR2 = @DesktopDir & ""
	If $FileName = "" Then Return SetError(1)
	If FileExists($PR1 & $FileName) Then
    	If StringInStr(FileGetAttrib($PR1 & $FileName),"R") Then FileSetAttrib($PR1 & $FileName,"-R")
    	FileDelete($PR1 & $FileName)
	EndIf
	If FileExists($PR2 & $FileName) Then
    	If StringInStr(FileGetAttrib($PR2 & $FileName),"R") Then FileSetAttrib($PR2 & $FileName,"-R")
    	FileDelete($PR2 & $FileName)
	EndIf
EndFunc 

Yazdım, masa üstünden kısayolları sildiremedim. Yardım edebilir misiniz?

[blackman12]

_Startup_Del("Babylon.ink")
_Startup_Del("Babylon Games.ink")
Func _Startup_Del($FileName)
	Local $PR1 = @DesktopDir & "\"
	If FileExists($PR1 & $FileName) Then
    	If StringInStr(FileGetAttrib($PR1 & $FileName),"R") Then FileSetAttrib($PR1 & $FileName,"-R")
    	FileDelete($PR1 & $FileName)
	EndIf
EndFunc 

[mrecep38]

_Startup_Del("Babylon.ink")
Func _Startup_Del($FileName)
	Local $PR1 = @DesktopDir & "\"
	If FileExists($PR1 & $FileName) Then
		If StringInStr(FileGetAttrib($PR1 & $FileName),"R") Then FileSetAttrib($PR1 & $FileName,"-R")
		FileDelete($PR1 & $FileName)
	EndIf
EndFunc 

Kodunu defalarca denedim, silmedi.

_Startup_Del("Babylon.*")

Yapınca masa üstündeki Babylon.exe yi siliyor fakat .ink hala silinmiyor.

[blackman12]

onun uzantısı ink değilde ondan lnk yaz:

_Startup_Del("Babylon.lnk")

[mrecep38]

_Startup_Del("Babylon.lnk")
Func _Startup_Del($FileName)
Local $PR1 = @DesktopDir & "\"
If FileExists($PR1 & $FileName) Then
  If StringInStr(FileGetAttrib($PR1 & $FileName),"R") Then FileSetAttrib($PR1 & $FileName,"-R")
  FileDelete($PR1 & $FileName)
EndIf
EndFunc 

Üstad, yine silmedi. Hatta; .INK .İNK . ink .ınk hepsini denedim, yine olmadı. İlginiz için teşekkürler.

Düzeltme: _Startup_Del("Babylon.lnk") çalışıyor. Acele ile küçük L yerine büyük ı yazmışım. @blackman12 , umarım yine bana sitem etmez. Dalgınlıkla ve acele ettiğimden olmuş. Teşekkürler @blackman12, ellerin dert görmesin.

[parsnarko]

del /Q /F "%ALLUSERSPROFILE%\Desktop\kısayol adı.lnk "

bide böyle dene..

olmasa

FileDelete(@DesktopDir & "\kısayol adı.lnk")

[mrecep38]

del /Q /F "%ALLUSERSPROFILE%\Desktop\kısayol adı.lnk " ---> Hata verdi.

bide böyle dene..

olmasa

FileDelete(@DesktopDir & "\kısayol adı.lnk") --> Hiçbir işlem yapmadı.

[parsnarko]

del /Q /F "%ALLUSERSPROFILE%\Desktop\kısayol adı.lnk " ---> Hata verdi.

hata wermesi normal cünkü bat dosyasıyla yapmak ici : bende yeni gördüm yazıyı ama altaki olur

Autoit icin olanı ...

[blackman12]

Sorun çözülmüş zaten parsnarko ayrıca hatırlatim burası AutoIT bölümü

[parsnarko]

Sorun çözülmüş zaten parsnarko ayrıca hatırlatim burası AutoIT bölümü

uyarımı alıyorum senden blackman 12 uyarı seviyem hicdüşmedi nedense

[mrecep38]

Şeklinde oluşturulan kısayolu

 
_Startup_Del("Babylon.lnk")
Func _Startup_Del($FileName)
Local $PR1 = @DesktopDir & "\"
If FileExists($PR1 & $FileName) Then
  If StringInStr(FileGetAttrib($PR1 & $FileName),"R") Then FileSetAttrib($PR1 & $FileName,"-R")
  FileDelete($PR1 & $FileName)
EndIf
EndFunc  

ile sildirebiliyoruz fakat;

Resimde görüleceği gibi birincisi masa üzerine gönderilen kısayol

(yukarıdaki kodlarla silinebiliyor) , ikincisi ise program kurulurken attığı ve

proğramı çalıştıran kısayol. Bu ikinci kısayol yukarıdaki kodlarla silinmiyor.

_BL_FILE_DEL(@DesktopDir & "\Babylon.lnk")

Func _BL_FILE_DEL($LNK_FILE)
   If not FileExists($LNK_FILE) Or $LNK_FILE = "" Then Return SetError(1)
   If StringInStr(FileGetAttrib($LNK_FILE),"R") Then FileSetAttrib($LNK_FILE,"-RS")
   If FileDelete($LNK_FILE) Then Return SetError(2)
EndFunc

ile sildiremedim. Nerede yanlış yapıyorum?

[MostWanted]

_BL_FILE_DEL(@DesktopDir & "\Babylon.lnk")

Func _BL_FILE_DEL($LNK_FILE)

If not FileExists($LNK_FILE) Or $LNK_FILE = "" Then Return SetError(1)

If StringInStr(FileGetAttrib($LNK_FILE),"R") Then FileSetAttrib($LNK_FILE,"-RS")

If FileDelete($LNK_FILE) Then Return SetError(2)

EndFunc

[mrecep38]

Üstad, yine 1. şekilde oluşturulan kısayolu siliyor.

Ancak kendi oluşturduğunu silmedi.

İlginiz için teşekkürler.