kamuran731 Posted December 16, 2011 Share Posted December 16, 2011 (edited) istediğim bu bilgi [img]http://a1112.hizliresim.com/s/j/14p0p.png[/img] Edited December 16, 2011 by kamuran731 Quote Link to comment Share on other sites More sharing options...
ali::12 Posted December 16, 2011 Author Share Posted December 16, 2011 Bu kodla oluyor dediğin kardeşim eve gidince sana örnek çalışma yapayım ben. Quote Link to comment Share on other sites More sharing options...
pilgetir Posted December 16, 2011 Share Posted December 16, 2011 Onu için HDDInfoDll dosyasını kullanman gerek.. Onshow; [quote] function GetHDDInfo(sDRIVE) sDRIVE=String.Replace(sDRIVE,":","",false) sDRIVE=String.Replace(sDRIVE,"\\","",false) tbDrives = Drive.Enumerate(); if tbDrives then nHDDCount=0 for i,v in pairs(tbDrives) do if Drive.GetType(v) == 3 then cDRIVE=String.Replace(v,":\\","",false) cDRIVE=String.Upper(cDRIVE) if String.Upper(sDRIVE) == cDRIVE then tbRet={} tbRet.VendorModel = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDVendorModel", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL); tbRet.HardwareSerial = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDHardwareSerial", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL); tbRet.FirmwareVersion = DLL.CallFunction("AutoPlay\\Docs\\HDDInfoDLL.dll", "GetHDDFirmwareVersion", nHDDCount, DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL); nHDDCount=nHDDCount+1 end end end else tbRet = 0 end return tbRet end tbHDD=GetHDDInfo(_SourceDrive) Label.SetText("Label1", tbHDD.VendorModel) Label.SetText("Label2", tbHDD.HardwareSerial) [/quote] Proje dosyası; [quote]http://hotfile.com/dl/137668911/44b4072/hddmodel_serial_PLGETR.apz.html[/quote] HDDInfoDll dosyası; [quote]http://hotfile.com/dl/137668861/f60f78c/HDDInfoDLL.rar.html[/quote] Quote Link to comment Share on other sites More sharing options...
kamuran731 Posted December 16, 2011 Share Posted December 16, 2011 (edited) teşekkür ederim ama bu kod sadece Sabit diskin bilgsini verdi takılı olan flash belleğimin bilgisini vermedi Ams de buton a yazılacak bir kod ile sürücüye direk format atmak için kod istemiştim cevap gelmeyince uğraş sonucu buldum. arkadaşlara lazım olur belki Shell.Execute("C:\\Windows\\System32\\Format.com", "open", " G:\" /Y /V:Kamuran /Q /X", " ", SW_SHOWNORMAL, true) Edited February 4, 2012 by kamuran731 Quote Link to comment Share on other sites More sharing options...
sakaci_79 Posted August 18, 2013 Share Posted August 18, 2013 kodları tekrar atarmısınız Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted August 18, 2013 Share Posted August 18, 2013 [member=pairs] diye bir üyemiz var, kodları ondan isteyebilirsiniz :D Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted August 18, 2013 Editor Share Posted August 18, 2013 [member=pairs] diye bir üyemiz var, kodları ondan isteyebilirsiniz :D Ne pairsi :D. result = File.Run("cmd.exe", "/C format E: /Q /X /V:TNCTR", _WindowsFolder.."\\System32", SW_HIDE, false); Quote Link to comment Share on other sites More sharing options...
soyfox18 Posted April 10, 2014 Share Posted April 10, 2014 Bu iş için bir DLL var. Ona uygun olarak bir örnek hazırladım, ama şu an elimde boş bir sürücü olmadığı için deneme yapamadım, deneyip sonucu buraya yazarsınız. :download1: http://www.mediafire.com/?r3cnz5st6v4xi0d KintaRo tekrar upload etme imkanın var mı? Lazım oldu bana da Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted April 10, 2014 Editor Share Posted April 10, 2014 Benm mesajdaki kodu kullanabilirsin sadece sürücü ismini yazman yeterli. Quote Link to comment Share on other sites More sharing options...
KintaRo Posted April 10, 2014 Share Posted April 10, 2014 KintaRo tekrar upload etme imkanın var mı? Lazım oldu bana da ben bu projeyi yaptığımı bile hatırlamıyorum inan :mellow: Quote Link to comment Share on other sites More sharing options...
soyfox18 Posted April 10, 2014 Share Posted April 10, 2014 Benm mesajdaki kodu kullanabilirsin sadece sürücü ismini yazman yeterli. sağolsın pairs denicem.. ben bu projeyi yaptığımı bile hatırlamıyorum inan :mellow: Canın sağolsun KintaRo yinede sağol :) 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.