FaİR

[img]http://i55.tinypic.com/2yki7i1.jpg[/img] [codebox] #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiListView.au3> #include <GuiComboBoxEx.au3> #include <File.au3> Opt("GUICloseOnESC", 1) Opt("GUIOnEventMode", 1) Global $fTypes = "au3|doc|docx|txt|zip|rar|exe|lnk" $Gui = GUICreate("Masa üstü Dosya Silici", 392, 185, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) GUISetOnEvent($GUI_EVENT_CLOSE, "Event", $Gui) $LV = GUICtrlCreateListView("Desktop Files", 5, 10, 280, 140, -1, BitOR($LVS_EX_CHECKBOXES, $WS_EX_CLIENTEDGE)) FindDesktopFiles() GUICtrlCreateGroup("Dosya Türleri", 290, 5, 90, 45) $Combo = GUICtrlCreateCombo("Hepsi", 300, 20, 70, 20, $CBS_DROPDOWNLIST) GUICtrlSetOnEvent(-1, "Event") GUICtrlSetData(-1, $fTypes, "Hepsi") $SelectAll = GUICtrlCreateButton("Tümünü seç", 290, 65, 100, 25) GUICtrlSetOnEvent(-1, "Event") $SelectNone = GUICtrlCreateButton("Hiçbirini Seçme", 290, 95, 100, 25) GUICtrlSetOnEvent(-1, "Event") $InvertSeleced = GUICtrlCreateButton("Seçili haricindekileri", 290, 125, 100, 25) GUICtrlSetOnEvent(-1, "Event") $SendToBin = GUICtrlCreateButton("Seçilen Dosyaları Geri Dönüşüm Kutusu gönder", 5, 155, 375, 25) GUICtrlSetOnEvent(-1, "Event") GUICtrlSetFont(-1, 10, 700) GUISetState(@SW_SHOW, $Gui) While 1 Sleep(100) WEnd Func Event() Switch @GUI_CtrlId Case $GUI_EVENT_CLOSE Exit Case $Combo FindDesktopFiles(GUICtrlRead($Combo)) Case $SelectAll For $s = 0 To _GUICtrlListView_GetItemCount($LV) - 1 _GUICtrlListView_SetItemChecked($LV, $s, True) Next Case $SelectNone For $s = 0 To _GUICtrlListView_GetItemCount($LV) - 1 _GUICtrlListView_SetItemChecked($LV, $s, False) Next Case $InvertSeleced For $s = 0 To _GUICtrlListView_GetItemCount($LV) - 1 If _GUICtrlListView_GetItemChecked($LV, $s) Then _GUICtrlListView_SetItemChecked($LV, $s, False) Else _GUICtrlListView_SetItemChecked($LV, $s, True) EndIf Next Case $SendToBin For $s = 0 To _GUICtrlListView_GetItemCount($LV) - 1 If _GUICtrlListView_GetItemChecked($LV, $s) Then _ FileRecycle(@DesktopDir & "\" & _GUICtrlListView_GetItemText($LV, $s, 0)) Next FindDesktopFiles(GUICtrlRead($Combo)) EndSwitch EndFunc Func FindDesktopFiles($sType = "All Types") _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($LV)) Local $ext = "*." & $sType, $FL2A If $sType = "All Types" Then $ext = "*.*" $FL2A = _FileListToArray(@DesktopDir, $ext, 1) If Not @error Then For $i = 1 To $FL2A[0] If $sType = "All Types" Then Local $SST = StringSplit($fTypes, "|") For $j = 1 To $SST[0] If $SST[$j] = StringMid($FL2A[$i], StringInStr($FL2A[$i], ".", 0, -1) + 1) Then _ GUICtrlCreateListViewItem($FL2A[$i], $LV) Next ElseIf $sType <> "All Types" Then If $sType = StringMid($FL2A[$i], StringInStr($FL2A[$i], ".", 0, -1) + 1) Then _ GUICtrlCreateListViewItem($FL2A[$i], $LV) EndIf Next _GUICtrlListView_SetColumnWidth($LV, 0, $LVSCW_AUTOSIZE) EndIf EndFunc [/codebox]

peki icon nerde görünmesini istiyorsun ibocan

@ibocan06 Opt("TrayAutoPause", 0);tray pause engelleme

HKEY_CURRENT_USERS\Software\Microsoft\Windows\Currentversion \Policies\Explorer anahtarına gel ve buradaki NoDriveTypeAutoRun'ın değerini ver 95 ve pc yeniden başlat

[code] http://www.wupload.com/file/84553678/FONT.rar [/code]

@mert_can iso imajını rardan çıkarma neroyu aç eyerki 700mbden daha fazlaysa yani 1gb veya 4gb ise birtane çizilmemiş boş dvd tak dvd sürücüsüne nero8de kalıp tasarı kopya+disk kalıbı veya kayıtlı tasarı bölümünden iso dosyanı göster ve yazdır [img]http://www.tnctr.com/uploads/imgs/pre_1312784032__ner8.jpg[/img] nero6 da ise kalıbı diske yazdır seçeneği ile devam edebilirsin. [img]http://www.tnctr.com/uploads/imgs/pre_1312783912__nero.jpg[/img]