Ams Ile Sürücüye Format Atmak ?

[kamuran731]

istediğim bu bilgi

[img]http://a1112.hizliresim.com/s/j/14p0p.png[/img]

Edited December 16, 2011 by kamuran731

[ali::12]

Bu kodla oluyor dediğin kardeşim eve gidince sana örnek çalışma yapayım ben.

[pilgetir]

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]

[kamuran731]

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

[sakaci_79]

kodları tekrar atarmısınız

[DivaneTR]

[member=pairs] diye bir üyemiz var, kodları ondan isteyebilirsiniz :D

[pairs]

[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);

[soyfox18]

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

[pairs]

Benm mesajdaki kodu kullanabilirsin sadece sürücü ismini yazman yeterli.

[KintaRo]

KintaRo tekrar upload etme imkanın var mı? Lazım oldu bana da

 

ben bu projeyi yaptığımı bile hatırlamıyorum inan :mellow:

[soyfox18]

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 :)