Programın Kısa yolundan kurulu olduğu dizine gitmek

[Mendenn]

Programın Kısa yolundan kurulu olduğu dizine gitmek için Çeşitli yöntemler mevcuttur. Ama bunu sağ klik (Context Menu) eklemek ister misiniz?

Aşağıda kodları verip dosya oluşturmanızı istediğim dosyaları aynı klasöre koyunuz.

Aşağıdaki kodu: Hedef.reg olarak kayıt ediniz.

Kod: Tümünü seç

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\lnkfile\Shell\Hedefi Bul\command]
@="wscript.exe \"C:\\WINDOWS\\system32\\Find_target.vbs\" \"%1\""

Aşağıdaki kodu hedefbul.bat olarak kayıt edin.

Kod: Tümünü seç

cmdow.exe @ /hid
@echo off
setlocal
set FT="%TEMP%\Find_Target.tmp"
set FTV="C:\WINDOWS\system32\Find_Target.vbs"
@echo REGEDIT4>%FT%
@echo.>>%FT%
@echo [HKEY_CLASSES_ROOT\lnkfile\Shell\Hedefi Bul\command]>>%FT%
@echo @="wscript.exe \"C:\WINDOWS\system32\Find_target.vbs\" \"%%1\"">>%FT%
@echo.>>%FT%
@echo.>>%FT%
@echo Dim param, filenam, targt, shortct>%FTV%
@echo Set param = WScript.Arguments>>%FTV%
@echo filenam = param (0)>>%FTV%
@echo Set WshShell = WScript.CreateObject("WScript.Shell")>>%FTV%
@echo Set shortct = WshShell.CreateShortcut(filenam)>>%FTV%
@echo targt = shortct.TargetPath>>%FTV%
@echo WshShell.Run "%windir%\explorer.exe /select," ^& Chr(34) ^& targt ^& Chr(34)>>%FTV%
regedit /s hedef.reg
del /q %FT%
endlocal

Yazan: Mendenn

[velociraptor]

tesekürler fakat Find_Target.vbs nerde , sahsen ben olsam söyle bir anlatimi tercih ederdim:

Bir Programin hedef klasörünü bulmak icin genellikle o program kisayolunu sag tiklayip özellikler > hedefi bul deriz , fakat bu özelligi cokca kullaniyorsaniz direk sag tikladigmizda hedefi bul diye bir opsiyonumuz olsun istiyorsak asagidakileri uygulamamiz yeterlidir:
1. asagidaki kodu not defterine yapistirip bir isim veriniz ve uzantisini .bat olacak sekilde herhangi bir yere kaydedin:

Kod: Tümünü seç

cmdow.exe @ /hid
@echo off
setlocal
set FT="%TEMP%\Find_Target.tmp"
set FTV="C:\WINDOWS\system32\Find_Target.vbs"
@echo REGEDIT4>%FT%
@echo.>>%FT%
@echo [HKEY_CLASSES_ROOT\lnkfile\Shell\Hedefi Bul\command]>>%FT%
@echo @="wscript.exe \"C:\WINDOWS\system32\Find_target.vbs\" \"%%1\"">>%FT%
@echo.>>%FT%
@echo.>>%FT%
@echo Dim param, filenam, targt, shortct>%FTV%
@echo Set param = WScript.Arguments>>%FTV%
@echo filenam = param (0)>>%FTV%
@echo Set WshShell = WScript.CreateObject("WScript.Shell")>>%FTV%
@echo Set shortct = WshShell.CreateShortcut(filenam)>>%FTV%
@echo targt = shortct.TargetPath>>%FTV%
@echo WshShell.Run "%windir%\explorer.exe /select," ^& Chr(34) ^& targt ^& Chr(34)>>%FTV%
regedit /s hedef.reg
del /q %FT%
endlocal

Bu yukaridaki .bat kodu calistirildiginda C:\Windows\system32 klasörünün icine Find_Target.vbs isminde bir vbs olusturur , eger birsekilde sizde bu olusmadi ise asagidakini notepad e yapistirip Find_target.vbs seklinde C:\Windows\system32 icine atiniz

Kod: Tümünü seç

Dim param, filenam, targt, shortct
Set param = WScript.Arguments
filenam = param (0)
Set WshShell = WScript.CreateObject("WScript.Shell")
Set shortct = WshShell.CreateShortcut(filenam)
targt = shortct.TargetPath
WshShell.Run "C:\Windows\explorer.exe /select," & Chr(34) & targt & Chr(34)

Asil isi yapan bu ve birazdan kullanacagimiz sag tikta hedefi bul olusmasini saglayan registry kaydidir.

2. asagidaki registry kaydini calistiriniz

Kod: Tümünü seç

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\lnkfile\Shell\Hedefi Bul\command]
@="wscript.exe \"C:\\WINDOWS\\system32\\Find_target.vbs\" \"%1\""

artik sag tikta hedefi bul diye bir Opsiyonumuz var

Mendenn

paylasim icin tekrar tesekkürler

[Mendenn]

Arkadaş Tarkan abi haklı ama yanıldığı bir nokta var. ilk bakışta kodlar incelendiğinde sanki bir dosya eksikmiş gibi. oda dosyada : Find_Target.vbs öğle duruyor. o dosya bat uzantılı dosya tarafından oluşturuluyor. (Ben kodlardan fazla anlamam ama deneyerek yaptığım için. her bilgisayara format attığımda bu işi yaparım. bu arada yeni format attım :) ...)

[velociraptor]

bende sadece kodlara kisaca bakmistim sonradan .bat in bu gerekli vbs yi olusturup system32 icine attigini anladim , tekrar sagol

[Mendenn]

Bu kodu mentin belgesine yazıp. Hedefbul.bat olarak kayıt ediniz. sonra çalıştırınız. Yukarında verdiğim iki kodu tek programda topladım. böylece daha rahat kullanırsınız.

Kod: Tümünü seç

cmdow.exe @ /hid
@echo off

REG ADD "HKCR\lnkfile\Shell\Hedefi Bul\command" /f
REG ADD "HKCR\lnkfile\Shell\Hedefi Bul\command" /v "@" /t REG_SZ /d ""wscript.exe \"C:\\WINDOWS\\system32\\Find_target.vbs\" \"%1\""" /f

setlocal
set FT="%TEMP%\Find_Target.tmp"
set FTV="C:\WINDOWS\system32\Find_Target.vbs"
@echo REGEDIT4>%FT%
@echo.>>%FT%
@echo [HKEY_CLASSES_ROOT\lnkfile\Shell\Hedefi Bul\command]>>%FT%
@echo @="wscript.exe \"C:\WINDOWS\system32\Find_target.vbs\" \"%%1\"">>%FT%
@echo.>>%FT%
@echo.>>%FT%
@echo Dim param, filenam, targt, shortct>%FTV%
@echo Set param = WScript.Arguments>>%FTV%
@echo filenam = param (0)>>%FTV%
@echo Set WshShell = WScript.CreateObject("WScript.Shell")>>%FTV%
@echo Set shortct = WshShell.CreateShortcut(filenam)>>%FTV%
@echo targt = shortct.TargetPath>>%FTV%
@echo WshShell.Run "%windir%\explorer.exe /select," ^& Chr(34) ^& targt ^& Chr(34)>>%FTV%
regedit /s hedef.reg
del /q %FT%
endlocal

[velociraptor]

bu daha kullanisli olmus bunu birde exe yapsaydin , yarin öbürgün senin bu emegin ile birileri ahkam kesemezdi

Edit: Son verdigin yanlis registry kaydi olusturdugundan calismiyor

[Mendenn]

Tarkan abi dediğim gibi. kodlardan anlamıyorum kodları torbaya atar gibi koydum demek

Kod: Tümünü seç

REG ADD "HKCR\lnkfile\Shell\Hedefi Bul\command" /f
REG ADD "HKCR\lnkfile\Shell\Hedefi Bul\command" /v "@" /t REG_SZ /d ""wscript.exe \"C:\\WINDOWS\\system32\\Find_target.vbs\" \"%1\""" /f

bu kodları belki daha aşağıya yazmam lazım.

[Mendenn]

bu daha kullanisli olmus bunu birde exe yapsaydin , yarin öbürgün senin bu emegin ile birileri ahkam kesemezdi

Edit: Son verdigin yanlis registry kaydi olusturdugundan calismiyor

ama bende çalışıyor. İşletim sistemim windows Xp Pro.

[velociraptor]

viewtopic.php?f=9&t=84536
üsttekini bir incele , exe yi de winrar ile yapmaya calis , yani senden ricam sunu tiklandiginda otomatik olarak herseyi yapan bir exe yapman , omadi ben bir caresine bakarim

sende calismasinin sebebi : önceden girimis dogru kayitlar , cünkü üstteki alakasiz kayitlar olusturuyor

[Mendenn]

http://hotfile.com/dl/90331193/8287004/ ... l.exe.html

[Mendenn]

Kod: Tümünü seç

cmdow.exe @ /hid
@echo off
setlocal
set FT="%TEMP%\Find_Target.tmp"
set FTV="C:\WINDOWS\system32\Find_Target.vbs"
@echo REGEDIT4>%FT%
@echo.>>%FT%
@echo [HKEY_CLASSES_ROOT\lnkfile\Shell\Hedefi Bul\command]>>%FT%
@echo @="wscript.exe \"C:\WINDOWS\system32\Find_target.vbs\" \"%%1\"">>%FT%
@echo.>>%FT%
@echo.>>%FT%
@echo Dim param, filenam, targt, shortct>%FTV%
@echo Set param = WScript.Arguments>>%FTV%
@echo filenam = param (0)>>%FTV%
@echo Set WshShell = WScript.CreateObject("WScript.Shell")>>%FTV%
@echo Set shortct = WshShell.CreateShortcut(filenam)>>%FTV%
@echo targt = shortct.TargetPath>>%FTV%
@echo WshShell.Run "%windir%\explorer.exe /select," ^& Chr(34) ^& targt ^& Chr(34)>>%FTV%

REG ADD "HKCR\lnkfile\Shell\Hedefi Bul\command" /f
REG ADD "HKCR\lnkfile\Shell\Hedefi Bul\command" /v "@" /t REG_SZ /d ""wscript.exe \"C:\\WINDOWS\\system32\\Find_target.vbs\" \"%1\""" /f
del /q %FT%
endlocal

Bunu bir denesen Tarkan abi ?

[velociraptor]

bu dogru kayitlari olusturdu , exe yi winrar ile mi yaptin ? (henüz indirmedimde)

[Mendenn]

http://hotfile.com/dl/90331193/8287004/ ... l.exe.html
iconfinderdan simge de koydum :)

[velociraptor]

geyet hos olmus , tikliyorsun amacini yerine getiriyor baslik yerine tasinmistir cünkü vista ve windows 7 de zaten asagidaki secenek var:

[Mendenn]

Tarkan abi kodu düzelttim. Dediğim gibi çalışmıyordu. önce kendimki reg kaydını regisrty den sildim aynı şekilde oluşan dosyayı. sonra bat ile tek başına oluşturdum. çalışıyor.