Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska

[es] :: Pascal / Delphi / Kylix :: nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska

[ Pregleda: 3835 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

apex
kikinda

Član broj: 31144
Poruke: 918
82.208.201.*

Sajt: www.polovni-delovi.com


+1 Profil

icon nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska19.11.2005. u 01:55 - pre 224 meseci
Probao sam kodove sa foruma u vezi prepoznavanja serijskog broja hard diska i ostalih informacija. Medjutim nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska. Da li neko zna kako da odradim ovo? Prevrnuo sam ceo Delphi & MSDN help.
http://www.polovni-delovi.com - Najveći portal polovnih delova za sve tipove vozila
 
Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina


+7 Profil

icon Re: nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska19.11.2005. u 12:36 - pre 224 meseci
Trazi Removable Storage Manager u nekom novijem MSDN-u (2003).
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.195.eunet.yu.



+1 Profil

icon Re: nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska20.11.2005. u 17:51 - pre 224 meseci
Za pocetak mozes da koristis:

GetDriveType() na ovaj nacin:

Code:

Uses Windows, ShellAPI;
...
var 
  Ld: DWORD;
  i: Integer;
begin
  Ld := GetLogicalDrives;
  for i:= 0 to 25 do
  begin
    if (Ld and (1 shl i)) <> 0 then
    begin
      if GetDriveType(PChar(Char(65 + i) + ':')) = DRIVE_REMOVABLE then
      begin
        // Ako je drive removable...
      end;
    end;
  end;
end;


[Ovu poruku je menjao morlic dana 20.11.2005. u 18:52 GMT+1]
 
Odgovor na temu

apex
kikinda

Član broj: 31144
Poruke: 918
82.208.201.*

Sajt: www.polovni-delovi.com


+1 Profil

icon Re: nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska20.11.2005. u 18:37 - pre 224 meseci
Citat:
morlic: Za pocetak mozes da koristis:

GetDriveType() na ovaj nacin:

Code:

Uses Windows, ShellAPI;
...
var 
  Ld: DWORD;
  i: Integer;
begin
  Ld := GetLogicalDrives;
  for i:= 0 to 25 do
  begin
    if (Ld and (1 shl i)) <> 0 then
    begin
      if GetDriveType(PChar(Char(65 + i) + ':')) = DRIVE_REMOVABLE then
      begin
        // Ako je drive removable...
      end;
    end;
  end;
end;


[Ovu poruku je menjao morlic dana 20.11.2005. u 18:52 GMT+1]

Znam za ovo posto to bas trenutno i koristim, ali odatle ne mogu da dobijem informaciju o npr serijskom broju diska (mogu ali samo serijski broj koji mu je WIN dodelio pri formatiranju), a to nije ono sto mi treba.
Meni treba da uzmem serijski broj FLASH diska ili nekog diska koji se nalazi u HDD Rack-u.
http://www.polovni-delovi.com - Najveći portal polovnih delova za sve tipove vozila
 
Odgovor na temu

milika
Milika Delic
RD
NS

Član broj: 13221
Poruke: 120
*.yu
Via: [es] mailing liste



Profil

icon Re: nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska20.11.2005. u 18:51 - pre 224 meseci
SATA diskovi takodje imaju ovaj FLAG!!!

pozdrav
------=_NextPart_000_00B3_01C5EE08.D3DAAD40
Content-Type: text/html;
charset="utf-8"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<META content="MSHTML 6.00.2900.2627" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A [email protected] href="mailto:[email protected]">morlic</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A [email protected]
href="mailto:[email protected]">[email protected]</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Sunday, November 20, 2005 6:51
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: nikako ne mogu da saznam
bilo kakvu informaciju u vezi FLASH diska
[elitesecurity.programiranje.pascal-delphi-kylix]</DIV>
<DIV><BR></DIV>
<DIV>Za pocetak mozes da koristis:<BR><BR>GetDriveType() na ovaj
nacin:<BR><BR>
Code:
<BR>Uses Windows, ShellAPI;<BR>...<BR>var <BR>&nbsp; Ld: 
  DWORD;<BR>&nbsp; i: Integer;<BR>begin<BR>&nbsp; Ld := 
  GetLogicalDrives;<BR>&nbsp; for i:= 0 to 25 do<BR>&nbsp; 
  begin<BR>&nbsp;&nbsp;&nbsp; if (Ld and (1 shl i)) &lt;&gt; 0 
  then<BR>&nbsp;&nbsp;&nbsp; begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if 
  GetDriveType(PChar(Char(65 + i) + ':')) = DRIVE_REMOVABLE 
  then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
  begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // Ako je drive 
  removable...<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end;<BR>&nbsp;&nbsp;&nbsp; 
  end;<BR>&nbsp; end;<BR>end;<BR>
<BR><BR>&lt;sub&gt;[*Ovu poruku je
menjao morlic dana 20.11.2005. u 18:52 GMT+1*]&lt;/sub&gt;<BR><BR>--<BR><A
href="http://www.elitesecurity.org/poruka/954962">http://www.elitesecurity.org/poruka/954962</A><BR><BR>Prijave/odjave:
<A
href="http://www.elitesecurity.org/liste">http://www.elitesecurity.org/liste</A><BR><BR>Ne
menjajte sledece dve linije ukoliko odgovarate putem
emaila!<BR>esauth:146015:5ed396beb6d8c11bfe17124d17c0625e<BR>Odgovor pisite
*iskljucivo* ispod ove linije:</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>SATA diskovi takodje imaju ovaj
FLAG!!!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>pozdrav</FONT></DIV></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_00B3_01C5EE08.D3DAAD40--
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: nikako ne mogu da saznam bilo kakvu informaciju u vezi FLASH diska

[ Pregleda: 3835 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.