SimpsoN_Bart Posted January 3, 2011 Share Posted January 3, 2011 forumdan kaynak kod indirdim de onu compile edemiyorum hata veriyorr.. ne yapmam lazım... ?_ http://img233.imageshack.us/img233/4373/hatawk.jpg[img]http://img233.imageshack.us/img233/4373/hatawk.jpg[/img] Quote Link to comment Share on other sites More sharing options...
blue_life Posted January 3, 2011 Share Posted January 3, 2011 Üçüncü satırdaki Global Const $FILE_SHARE_READ = 0x1 satırında hata var gibi görünüyor... Bir ihtimal bu değişkten daha önce (bir kütüphaneden (#include)) tanımlanmış olabilir. Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 bu program Talha_252 hemşerimin usb kaldırma programı onu compile edemedim bi türlü ne yapmam lazım usta sizsiniz az yardımıcı olun da kaynak dosyalar burda http://rapidshare.com/files/345251727/kaynak.kodu.rar Quote Link to comment Share on other sites More sharing options...
blue_life Posted January 3, 2011 Share Posted January 3, 2011 Evet tahmin ettiğim gibi bazı değişkenler udflere eklenmiş. Bu yüzden hata alıyormuşsun. Usb.au3 dosyasını açıp aşağıdaki satırları sil! [codebox]Global Const $FILE_SHARE_READ = 0x1 Global Const $FILE_SHARE_WRITE = 0x2 Global Const $OPEN_EXISTING = 3 Global Const $INVALID_HANDLE_VALUE = Ptr(0xFFFFFFFF); invalid ptr value[/codebox] Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 (edited) . Edited January 18, 2011 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 3, 2011 Share Posted January 3, 2011 ben bu kodları tanıyorum ama neyse...diyeceğim şey şu sen bunu genel olarak mı istiyorsun yoksa bi dosya için mi?Bir tek dosya içinse bunu xp için nasıl sağ tık eklentisi haline getireceksin ona göre yazalım. Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 (edited) . Edited January 18, 2011 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
blue_life Posted January 3, 2011 Share Posted January 3, 2011 Bende tv izliyorum Eski bir çalışmam vardı ordan alıntı yapayım... Sen kendine göre ayarlarsın.. Doayaları gizle göster [codebox] ;Dosyaları gizel göster _BL_HS_FILE() ;Dosya uzantılarını gizle göster _BL_HIDDEN_FILE_EX() Func _BL_HS_FILE() Local $BL_MAIN_KEY = "HKCU" If @OSArch <> "X86" Then $BL_MAIN_KEY &= "64" Local $Value = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden") If $Value == "1" Then RegWrite($BL_MAIN_KEY & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "2");Gizli Dosyaları Gizle RegWrite($BL_MAIN_KEY & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", "REG_DWORD", "0") ;Sistem Dosyalarını Gizle Else RegWrite($BL_MAIN_KEY & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "REG_DWORD", "1") ; Gizli Dosyaları Göster RegWrite($BL_MAIN_KEY & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", "REG_DWORD", "1") ; Sistem Dosyalarını Göster EndIf _Update_Explorer() EndFunc ;==>_BL_HS_FILE Func _BL_HIDDEN_FILE_EX() Local $BL_MAIN_KEY = "HKCU" If @OSArch <> "X86" Then $BL_MAIN_KEY &= "64" Local $Value = RegRead($BL_MAIN_KEY & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt") If $Value = "0" Then RegWrite($BL_MAIN_KEY & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", "REG_DWORD", "1") ;Dosya Uzantılarını Gizle Else RegWrite($BL_MAIN_KEY & "\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", "REG_DWORD", "0") ;Dosya Uzantılarını Göster EndIf _Update_Explorer() EndFunc ;==>_BL_HIDDEN_FILE_EX Func _Update_Explorer($CLASS = "[CLASS:SHELLDLL_DefView]") Local $bOld = Opt("WinSearchChildren", True) Local $a = WinList($CLASS) For $I = 0 To UBound($a) - 1 DllCall("user32.dll", "long", "SendMessage", "hwnd", $a[$I][1], "int", 0x111, "int", 28931, "int", 0) Next Opt("WinSearchChildren", $bOld) EndFunc ;==>_Update_Explorer[/codebox] Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 (edited) . Edited January 18, 2011 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 (edited) . Edited January 18, 2011 by SimpsoN_Bart Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 3, 2011 Share Posted January 3, 2011 Bak anlamadığın nokta şu eğer sağtıka eklemiceksen, blue_life in kodları işini görür.He sağ tıka eklicen ama bunu win7 veya fast explorer gibi yardımcı bi programla ekliceksenyine bu kod sorunu çözer ama yok ben programı çalıştırınca bu özelliği yüklesin ve özelli orada kalsın diyosan ekstra bir dll yi gömmek gerekiyor içine.Bu soruyu cevaplaman lazım Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 3, 2011 Author Share Posted January 3, 2011 (edited) Blue_Life ın kodları işime. Edited January 18, 2011 by SimpsoN_Bart 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.