Jump to content

Belini

Administradores (Adm)
  • Content count

    1,972
  • Joined

  • Last visited

  • Days Won

    104

Belini last won the day on July 3

Belini had the most liked content!

Community Reputation

228 Excelente!

About Belini

  • Rank
    Administrador
  • Birthday 08/25/1968

Profile Information

  • Gender
    Male
  • Location
    Minas Gerais

Recent Profile Visitors

9,979 profile views
  1. @Manimal no help do programa manda usar -RD só que testei tanto com -RD quanto /RD e não gerou o log apenas mostra uma janela com os comandos. Teste em arquivo .bat UsbDriveInfo.exe -RD -L
  2. @Manimal este outro programa que vc usou para mostrar as informações do pendrive aceita linha de comando e salva as informações em .txt?
  3. @Manimal no script completo tem sim e sempre coloco em todos scripts este aqui apenas copiei do @joelson0007 mas mesmo colocando nele continua sem retornar o serial.
  4. Achei melhor reviver o tópico do que criar outro pois é relativo ao último script postado aqui pelo @joelson0007, o que acontece é que no win7 64 bits retorna corretamente todas informações do pendrive menos o serial, alguém tem alguma dica de como resolver? #include <Array.au3> #include <String.au3> getUsbSerial() Func getUsbSerial() Local $letter[1], $disk[1], $aArray[1][2], $i, $informat = '', $espaco = '' Local $objWMIService = ObjGet("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2") If IsObj($objWMIService) Then Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", 0x10 + 0x20) For $objitem In $colItems If $objitem.interfacetype = "USB" And $objitem.DeviceId Then For $partition In $objWMIService.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" & $objitem.DeviceId & "'} WHERE AssocClass = Win32_DiskDriveToDiskPartition") Next If (IsObj($partition) And $partition.DeviceId) Then For $loDisk In $objWMIService.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" & $partition.DeviceId & "'} WHERE AssocClass = Win32_LogicalDiskToPartition") Next $aRegExSer = StringRegExp($objitem.pnpdeviceid, "\x5C([0-9a-fxA-FX]+)&", 3) If IsArray($aRegExSer) Then $i += 1 $informat = "" _ArrayAdd($disk, $aRegExSer[0]) _ArrayAdd($letter, $loDisk.DeviceId) $espaco = DriveSpaceTotal($letter[$i]) / 1024 $espaco = StringMid($espaco, 1, StringInStr($espaco, ".", 2, 1) + 2) & " GB" MsgBox('', '', "Letra do pendrive = " & $letter[$i] & @CRLF & "Tamanho pendrive = " & $espaco & @CRLF & _ "Serial = " & $disk[$i] & @CRLF & "Nome = " & $objitem.Caption & @CRLF & "ID = " & $objitem.PNPDeviceID) EndIf EndIf EndIf Next EndIf EndFunc ;==>getUsbSerial
  5. Duvida Visualizador De Fotos

    ListBox tem pouca opção e neste caso vc terá que criar um ListView. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <GuiListView.au3> #include <File.au3> Global $diretorio = "", $foto = 1, $FileList, $max = 0, $item_atual #region ### START Koda GUI section ### Form=C:\Users\michel\Desktop\menu programadores\Source\Form1.kxf $Form1 = GUICreate("Boot Ecu", 914, 636, 180, 131) $List = GUICtrlCreateListView("LISTA", 776, 40, 137, 552, BitOR($LVS_NOCOLUMNHEADER, $LVS_SINGLESEL)) _GUICtrlListView_SetColumnWidth($List, 0, 133) $Pic1 = GUICtrlCreatePic("", 0, 40, 761, 561, $SS_CENTERIMAGE) $Dir = GUICtrlCreateButton("Diretorio", 776, 0, 137, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFFFF00) $Up = GUICtrlCreateButton("Up", 776, 592, 73, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $down = GUICtrlCreateButton("Dw", 848, 592, 65, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("", 760, 40, 17, 561) GUICtrlSetState(-1, $GUI_DISABLE) $bar = GUICtrlCreateButton("Sem imagens", 0, 0, 777, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) $Button4 = GUICtrlCreateButton("Total de Imagens = 0", 0, 600, 777, 30) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### ;Define_pasta("Diretório onde estão suas fotos"); ==> Habilite para não precisar usar o botão diretório While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $down If $max > 0 Then $foto += 1 Troca_imagem($foto) If $foto >= $max Then $foto = 1 EndIf Case $Up If $max > 0 Then $foto -= 1 Troca_imagem($foto) If $foto <= 0 Then $foto = $max EndIf Case $Dir $pasta = FileSelectFolder("escolha uma pasta", "") Define_pasta($pasta) Case $GUI_EVENT_CLOSE Exit EndSwitch $item_atual = _GUICtrlListView_GetSelectedIndices($List) If $item_atual <> ($foto) and $max > 0 Then $foto = $item_atual GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[$item_atual + 1]) ControlFocus("", "", $List) EndIf WEnd Func Define_pasta($pasta = "") $diretorio = $pasta $FileList = _FileListToArray($diretorio, "*.JPG", 1) If Not @error Then $max = $FileList[0] For $i = 1 To $max _GUICtrlListView_AddItem($List, $FileList[$i], $i - 1) Next GUICtrlSetData($Button4, "Total de Imagens = " & $max) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[1]) GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[1]) Else $max = 0 EndIf _GUICtrlListView_SetItemSelected($List, 0) ControlFocus("", "", $List) EndFunc ;==>Define_pasta Func Troca_imagem($imagem = '') If $imagem = $max Then $imagem = 0 If $imagem = -1 Then $imagem = $max - 1 GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[$imagem + 1]) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[$imagem]) _GUICtrlListView_SetItemSelected($List, $imagem) ControlFocus("", "", $List) EndFunc ;==>Troca_imagem
  6. Duvida Visualizador De Fotos

    Mas seria clicar no nome da foto ou selecionar usando os botões?
  7. Duvida Visualizador De Fotos

    @michel almeida não entendi muito bem como quer fazer o visualizador funcionar mas fiz algumas mudanças que depois vc pode alterar para o seu propósito! #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <File.au3> Global $diretorio = "", $foto = 1, $FileList, $max = 0 #region ### START Koda GUI section ### Form=C:\Users\michel\Desktop\menu programadores\Source\Form1.kxf $Form1 = GUICreate("Boot Ecu", 914, 636, 180, 131) $List = GUICtrlCreateList("", 776, 40, 137, 552) $Pic1 = GUICtrlCreatePic("", 0, 40, 761, 561, $SS_CENTERIMAGE) $Dir = GUICtrlCreateButton("Diretorio", 776, 0, 137, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFFFF00) $Up = GUICtrlCreateButton("Up", 776, 592, 73, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $down = GUICtrlCreateButton("Dw", 848, 592, 65, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("", 760, 40, 17, 561) GUICtrlSetState(-1, $GUI_DISABLE) $bar = GUICtrlCreateButton("Sem imagens", 0, 0, 777, 41) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) $Button4 = GUICtrlCreateButton("Total de Imagens = 0", 0, 600, 777, 30) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUICtrlSetState(-1, $GUI_DISABLE) GUISetState(@SW_SHOW) #endregion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $down If $max > 0 Then $foto += 1 If $foto >= $max Then $foto = 1 gui($foto) EndIf Case $Up If $max > 0 Then $foto -= 1 If $foto <= 0 Then $foto = $max gui($foto) EndIf Case $Dir $diretorio = FileSelectFolder("escolha uma pasta", "") Local $FileList = _FileListToArray($diretorio, "*.JPG", 1) If Not @error Then $max = $FileList[0] For $i = 1 To $max Step 1 GUICtrlSetData($List, $FileList[$i]) Next GUICtrlSetData($Button4, "Total de Imagens = " & $max) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[1]) GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[1]) Else $max = 0 EndIf Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func gui($foto = '') GUICtrlSetImage($Pic1, $diretorio & "\" & $FileList[$foto]) GUICtrlSetData($bar, "Imagem Atual: " & $diretorio & "\" & $FileList[$foto]) EndFunc ;==>gui
  8. Capturar tela de vídeo

    Consegui resolver o problema da musica que tocava acelerado e de não tocar arquivos .mp4 mas as outras funções que quero usar desta UDF não deram certo ainda, vou criar um tópico sobre esta UDF para quem se interesar e quiser ajudar! CRIADO: http://www.autoitbrasil.com/forum/index.php?/topic/2154-mediaau3-algumas-opções-não-funcionam/
  9. Obrigado @mutleey vou fazer o teste!
  10. Quando quero abrir outro programa no lugar do explorer altero no registro e sempre funcionou mas um cliente disse que no windows 10 não está funcionando, alguém sabe dizer se no windows 10 os comandos são diferentes? RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "REG_SZ", @ScriptDir & "\Meu Programa.exe")
  11. Capturar tela de vídeo

    Nesta UDF que encontrei tem duas funções que me interesam _MediaCapture() e alterar velocidade quando usa a função _MediaPlay() só que não consegui fazer elas funcionarem, alguém chegou a testar as funções desta UDF e teve sucesso?
  12. Capturar tela de vídeo

    Encontrei outra UDF que tem a função capture mas não funcionou e ainda toca o vídeo acelerado, tentei mudar em speed mas nem abre quando altero. ;=============================================================================== ; ; Function Name: _MediaOpen() ; Description: Opens a media file. ; Parameter(s): $s_location - Location of the media file ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns Media ID needed for the other media functions ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaOpen($s_location, $h_guihandle = 0) If Not IsDeclared("i_MediaCount") Then Global $i_MediaCount=0 $i_MediaCount=$i_MediaCount+1 DllCall("winmm.dll","int","mciSendString","str","open "&FileGetShortName($s_location)&" alias media"&String($i_MediaCount),"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return String($i_MediaCount) EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaCreate() ; Description: Creates a new media for recording, capturing etc. ; Parameter(s): $s_format - Format of the file. ; 0 = CD Audio ; 1 = Digital video ; 2 = Overlay ; 3 = sequencer ; 4 = Vcr ; 5 = Video disc ; 6 = Wave Audio ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns Media ID needed for the other media functions ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaCreate($s_format) If Not IsDeclared("i_MediaCount") Then Global $i_MediaCount=0 $i_MediaCount=$i_MediaCount+1 If $s_format=0 Then $s_Use="cdaudio" ElseIf $s_format=1 Then $s_Use="digitalvideo" ElseIf $s_format=2 Then $s_Use="overlay" ElseIf $s_format=3 Then $s_Use="sequencer" ElseIf $s_format=4 Then $s_Use="vcr" ElseIf $s_format=5 Then $s_Use="videodisc" ElseIf $s_format=6 Then $s_Use="waveaudio" EndIf DllCall("winmm.dll","int","mciSendString","str","open new type "&$s_Use&" alias media"&String($i_MediaCount),"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return String($i_MediaCount) EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaPlay() ; Description: Plays a opened media file. ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; [optional] $i_From - Sets time in seconds where to begin playing ; [optional] $i_To - Sets time in seconds where to bstop playing ; [optional] $i_Speed - Sets the speed to play with ; [optional] $f_Fast - When 1 it will play faster then normal ; [optional] $f_Slow - When 1 it will play slower then normal ; [optional] $f_Fullscreen - When 1 movies will play fullscreen ; [optional] $f_Repeat - When 1 it will keep repeating ; [optional] $f_Reverse - When 1 the movie will been played reversed ; [optional] $f_Scan - When 1 plays as fast as possible ; The default value of all the optional parameters is 0. ; Some file formats dont understand some of the optional functions ; Experimate with it. ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaPlay($i_MediaId,$i_From = 0,$i_To = 0,$i_Speed = 0,$f_Fast = 0,$f_Slow = 0,$f_Fullscreen = 0,$f_Repeat=0,$f_Reverse=0,$f_Scan = 0) $s_Parameters="" If $i_From Then $s_Parameters=$s_Parameters&" from "&$i_From If $i_To Then $s_Parameters=$s_Parameters&" to "&$i_To If $i_Speed Then $s_Parameters=$s_Parameters&" speed "&$i_Speed If $f_Fast Then $s_Parameters=$s_Parameters&" fast" If $f_Fullscreen Then $s_Parameters=$s_Parameters&" fullscreen" If $f_Repeat Then $s_Parameters=$s_Parameters&" repeat" If $f_Reverse Then $s_Parameters=$s_Parameters&" reverse" If $f_Scan Then $s_Parameters=$s_Parameters&" scan" If $f_Slow Then $s_Parameters=$s_Parameters&" slow" DllCall("winmm.dll","int","mciSendString","str","play media"&$i_MediaId&$s_Parameters,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaCapture() ; Description: Copies the contents of the frame buffer and stores it in the ; specified file. ; Stop recording with _MediaStop() ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; $s_Location - Location where to store the file. ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaCapture($i_MediaId,$s_Location) DllCall("winmm.dll","int","mciSendString","str","capture media"&$i_MediaId&" "&FileGetShortName($s_Location),"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaRecord() ; Description: Records from a microphone ; Stop recording with _MediaStop() ; (choose position with _MediaSeek()) ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaRecord($i_MediaId) DllCall("winmm.dll","int","mciSendString","str","record media"&$i_MediaId,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaCut() ; Description: Cuts a specified part of the movie to the clipboard. ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; $i_From - From time in seconds ; $i_To - To time in seconds ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaCut($i_MediaId,$i_From,$i_To) DllCall("winmm.dll","int","mciSendString","str","cut media"&$i_MediaId&" from "&$i_From&" to "&$i_To,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaCopy() ; Description: Copies a specified part of the movie to the clipboard. ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; $i_From - From time in seconds ; $i_To - To time in seconds ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaCopy($i_MediaId,$i_From,$i_To) DllCall("winmm.dll","int","mciSendString","str","copy media"&$i_MediaId&" from "&$i_From&" to "&$i_To,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaPaste() ; Description: Paste media from the clipboard. ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaPaste($i_MediaId,$i_From,$i_To) DllCall("winmm.dll","int","mciSendString","str","paste media"&$i_MediaId,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaDelete() ; Description: Deletes a specified part of the movie. ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; $i_From - From time in seconds ; $i_To - To time in seconds ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaDelete($i_MediaId,$i_From,$i_To) DllCall("winmm.dll","int","mciSendString","str","delete media"&$i_MediaId&" from "&$i_From&" to "&$i_To,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaStop() ; Description: Stops playing/recording of a Media ID ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaStop($i_MediaId) DllCall("winmm.dll","int","mciSendString","str","stop media"&$i_MediaId,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaSeek() ; Description: Moves to a specified Position and stops. ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; $i_Position - Position in seconds to move to, -1 goes to start ; -2 goes to end ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaSeek($i_MediaId,$i_Position) If $i_Position = -1 Then $s_Position = "end" ElseIf $i_Position = -2 Then $s_Position = "begin" Else $s_Position = String($i_Position) EndIf DllCall("winmm.dll","int","mciSendString","str","seek media"&$i_MediaId&" to "&$s_Position,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaPause() ; Description: Pauses playing/recording of a Media ID ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaPause($i_MediaId) DllCall("winmm.dll","int","mciSendString","str","pause media"&$i_MediaId,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaResume() ; Description: Resumes playing/recording of a Media ID ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaResume($i_MediaId) DllCall("winmm.dll","int","mciSendString","str","resume media"&$i_MediaId,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaSave() ; Description: Saves a opened Media ID to the selected file ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; $s_Location - Location to save to (must be full path) ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaSave($i_MediaId,$s_Location) DllCall("winmm.dll","int","mciSendString","str","save media"&$i_MediaId&" "&FileGetShortName($s_Location),"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc ;=============================================================================== ; ; Function Name: _MediaClose() ; Description: Closes a existing Media ID ; Parameter(s): $i_MediaId - Media ID returned by _MediaOpen()/MediaCreate() ; Requirement(s): AutoIt ; Return Value(s): On Success - Returns 1 ; On Failure - Returns 0 and sets @ERROR = 1 ; Author(s): svennie ; ;=============================================================================== Func _MediaClose($i_MediaId) DllCall("winmm.dll","int","mciSendString","str","close media"&$i_MediaId,"str","","int",65534,"hwnd",0) If @error Then SetError(1) Return 0 Else Return 1 EndIf EndFunc
×