Harddisklerin mantıksal bölümünün fiziksel sırasını bulmak.

[sabanakman]

Herkeslere kolay gelsin. Problemim; bir sistemde diyelimki 2 harddisk takılı ve bunlardan birisi 2'ye diğeri 3'e mantıksal olarak bölünmüş olsun. (C:,D: 1. harddisk E:,F:,G: 2. harddisk veya daha karışık bir şekilde de olabilir.) Bölümün ismini vererek o bölüm fiziksel olarak hangi harddiske ait olduğunun bulunması lazım. Mesela örneğe göre 'C:\'-> 0, 'E:\'->1 değerini vermeli. Böyle bir işlem nasıl yapılabilir.

[MicroChip]

bi ara yapmıştım böyle bişey ama ne zaman nerde hatırlamıyorum. Kodlarımı bulursam gönderirim. Bu arada mitec componentine baktın mı onunla da yapabilirsin.

saygılar...

[sabanakman]

Sen şu "mitec derim de başka bi şey derim ama mitec." diyen vatandaşsın. Biraz inceleme yapayım bakalım bulabilecek miyim. Bulursam buraya yazarım ama bu arada başka yöntem veya fikirleri olan varsa onlara da hayır denmez herhalde.

[MicroChip]

evet galiba o vatandaşım system özellikleri hakkında mitec üzerine comp tanımıyorum şu an için. ( Adam kodlarında bayağı asm kullanmış )

[sabanakman]

Mitec bileşenleri içinden TMiTeC_Disk bileşenini kullandım ve

Kod: Tümünü seç

MiTeC_Disk.Drive:='C:';
ShowMessage(IntToStr(MiTeC_Disk.GetCD));

kodunu denedim ama istediğimi vermedi. (Test için başkası kullandı kendim test edemedim.) Ayrıca, sadece bu iş için kullanacağımdan kodların elimde olmasını isterim. Varsa bilinen API, ASM veya başka kodlar bulmam gerekiyor. Araştırmalarım devam ediyor.

[ikut]

Mitec bileşenleri içinden TMiTeC_Disk bileşenini kullandım ve

Kod: Tümünü seç

MiTeC_Disk.Drive:='C:';
ShowMessage(IntToStr(MiTeC_Disk.GetCD));

kodunu denedim ama istediğimi vermedi. (Test için başkası kullandı kendim test edemedim.) Ayrıca, sadece bu iş için kullanacağımdan kodların elimde olmasını isterim. Varsa bilinen API, ASM veya başka kodlar bulmam gerekiyor. Araştırmalarım devam ediyor.

Kodu yokmuki sende bu maydanozun?

[sabanakman]

.dcu dosyalarını bulabildim. Kodu galiba parayla satılıyor.

[ikut]

.dcu dosyalarını bulabildim. Kodu galiba parayla satılıyor.

Kural dışına çıkmayalım ama herşeye para verecek olsaydık ooooooooh işimiz var. Bide bunu yazan herifçioğlu artık yeni kullanıcılara satmıyormuş. sebebide bu paketi kullanan bir ticari pro yazması. eskiden alanlar mustesna.

bu nasıl bir zihniyet anlamadım...

[sabanakman]

Zaten benim sorum mitec bileşenleri değil. O lazım değil (şimdilik...) ama konu oraya kaydı. Benim sorunum hangi mantıksal bölümün hangi fiziksel sürücüye ait olduğunu bulabilmek. Araştırmalarım devam ediyor

[sabanakman]

Mrb; Sorunumu hala çözemedim, tekrar bir gündeme getireyim dedim. Bu işi aslında inno setup içinde [ Code ] bloğu içerisinde yapmam lazım ama olmadı. (Delphi ile .dll hazırlayıp oradanda çalışsa da olur). Sorun özet olarak oluşturulmuş mantıksal bölüm (c:, d:, e: vs.) fiziksel olarak kaçıncı sırada olduğunu bulmak. (c: ve d: ide üzerinde 0. sırada, e: ide üzerinde 1. sırada gibi bir sonuç elde etmek istiyorum). Kolay gelsin.

[mrmarman]

Merhaba...

- Çoktan bulmuşsunuzdur diye ilgilenmedim, aşağıdaki fonksiyon işini görecektir. Çok derinlere gitmene gerek yok...

Kod: Tümünü seç

function GetLogicalDriveDevice(DriveLetter: Char): String;
const
  BUFFER_SIZE: Integer = 1024;
var
  BufLen: Integer;
  DriveName: String;
begin
  DriveName := DriveLetter + ':';
  SetLength(Result, BUFFER_SIZE);
  BufLen := QueryDosDevice(PChar(DriveName), PChar(Result), BUFFER_SIZE);

  if BufLen = 0 then
    RaiseLastOSError
  else
    SetLength(Result, BufLen);
end;

Kullanımı :

Kod: Tümünü seç

  ShowMessage( GetLogicalDriveDevice('C') );

[sabanakman]

İyi bayramlar ilgilenip cevap yazdığınız için çok teşekkür ederim. Sorunum devam ediyor . Şöyle ki; ikiye bölünmüş tek harrdiskimin ( c:,d: için ilk ide ) ikisinin de aynı şekilde sonuç vermesi gerekirken c: için \Device\HarddiskVolume1 d: için ise \Device\HarddiskVolume2 sonucunu verdi. Acaba dikkatimden kaçan bir nokta mı var. Gerçi henüz 2. bir harddisk takılı bir bilgisayarda deneme yapamadım. Kolay gelsin.