[Delphi]funkcja podglad dyskow na kompie

[kapiszon]

Witam wszystkich zwracam sie z prozba do was wzyskich ktorzy znacie Delphi.Na poczatku powiem ze juz korzystalem z google,
4programmers,binboy,.delphi.bajo itp stron i nie ma tam tego czego poszukuje.A mianowicie nie pisze trojana ale potrzebna jest mi czesc zrodla z ktorego trojany korzystaja.Chodzi dokladnie o podglad dyskow na kompie na ktorym jest server pobieranie plikow z niego.Prosze was o zrodlo do czegos takiego.
Wiem ze trzeba zastosowac na poczatku polecenia FindFirst i FindNext ale cos mi to nie wychodzi.

Pomozcie.

Ps:Jeśli jest ktos kto ma takie źródło to prosze udostępnijcie je.

 

[damian0170]

procedure ......... ;
var
naped : char;
typ : integer;
begin
for naped:='a' to 'z' do
begin
typ:=GetDriveType(PChar(naped+':'));
case typ of
DRIVE_REMOVABLE: label1.caption:=(naped+': - dysk wymienny');
DRIVE_FIXED: label2.caption:=(naped+': - dysk stały');
DRIVE_REMOTE: label3.caption:=(naped+': - dysk sieciowy');
DRIVE_CDROM: label4.caption:=(naped+': - dysk CD_ROM');
DRIVE_RAMDISK: label5.caption:=(naped+': - RAM dysk');
end;
end;
end;


To wszystko (wszystko jest na gogle )

 

[WinX]

CZy moglby ktos napisac to jasniej? Tzn jakie komponenty sa potrzebne itp...

 

[BBOYMARIO]

Musisz na forme wkitrać
label1
label2
label3
label4
label5
Są w zakładce Standard.
To jest taka litera A

 

[WinX]

Jesli chodzi o labele, to wiem o co chodzi(nie jestem taki durny 8) ) Chodzi mi tylko o to, ze nie wiem jak zrobic cos jak np w managerze plikow (total commander, przykladowo), zeby miec dwa sasiadujace ze soba okienka i moc kopiowac pliki z komputera na ktorym jest serwer, do komputera na ktorym jest klient