Տուն
Top.Mail.Ru Moscow
Ֆորում: "WinAPI";
Ընթացիկ արխիվը `2004.12.12;
Բեռնել: [xml.tar.bz2];

Down

Ինչպես է որոշվում, թե արդյոք կա սկավառակի սկավառակի վրա: Գտնել նմանատիպ մասնաճյուղեր


Кириешки ©   (2004-10-30 13:26) [0]

Ես կփորձեմ քննարկել CD սկավառակների տառերը, ապա նրանց անունները, բայց ես չգիտեմ, թե ինչպես կարելի է որոշել, թե արդյոք կա սկավառակ սկավառակում: Արագ pliz.



ssk ©   (2004-10-30 13:45) [1]

Որպես տարբերակ `կարդացեք սերիական համարը: եթե կա մի բան, ապա կա սկավառակ:

function DiscInDrive(D: char): boolean;
var
 VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char;
 VolumeSerialNo : DWord;
 MaxComponentLength, FileSystemFlags : Cardinal;
begin
 GetVolumeInformation(PAnsiChar(D + ":\"), VolumeName, MAX_PATH,
                      @VolumeSerialNo, MaxComponentLength, FileSystemFlags,
                      FileSystemName, MAX_PATH);
 Result := VolumeSerialNo <> 0;
end;


գործառույթը չի աշխատում մաքուր պատյաններով եւ ջնջեց RW- ը



SSSdd   (2004-10-30 14:24) [2]

ssk © շնորհակալություն:



Кириешки ©   (2004-10-30 14:26) [3]

ssk
Շնորհակալություն:



grom   (2004-10-30 16:05) [4]

> Ես թռչում եմ նամակների CD կրիչներ, ապա նրանց անունները
Ես թռչում եմ CD- ի տառերը, դա հեշտ է:
ապա նրանց անունները. Բայց դա ինձ հետաքրքրում է:
Ինչպես եք ձեռք բերել CD սկավառակների անունները:
Ասա ինձ, եթե կարող ես:



abc   (2004-10-30 16:12) [5]

> Կախովի մեջ սկավառակ կա
{Եթե սկավառակը կա / տեղադրված է ...}
եթե GetHDDInfo (S [I], VolumeName, FileSystemName, VolumeSerialNo,
MaxComponentLength, FileSystemFlags) ապա {... ապա հավաքում տեղեկություն}

http://delphibase.endimus.ru/?action=viewfunc&topic=harddisk&id=10139



OSokin ©   (2004-10-30 17:08) [6]

Երրորդ թեման, որին պատասխան եմ տալիս նույն (գրեթե) պատասխանին ... Մոդերատորներ, դուք ջնջում եք առնվազն երկու ամսվա հաղորդագրություններ, հակառակ դեպքում մարդիկ չեն կարող նայել նրանց ...
Եվ, այնուամենայնիվ, արդեն ժամանակն է տեղադրել FAQ- ում

Ստուգելու համար, թե արդյոք սկավառակը գտնվում է սկավառակում, օգտագործեք «GetDiskFreeSpace (pchar (disk +»): a, a, a, a); », որտեղ« սկավառակ »սկավառակի անունն է եւ« ա »- ը փոփոխական է տիպի կարդինալ: Եթե ​​գործառույթը կեղծ է, ապա սկավառակում չկա սկավառակ:



abc   (2004-10-30 18:54) [7]

էր
q, e: array [0..MAX_PATH-1] of Char;
մ: կարդինալ;
սկսել
եթե GetVolumeInformation (PChar ("d: \"), q, MAX_PATH, @ m, m, m, e, MAX_PATH), ապա ...
Այլ ...

GetVolumeInformation in GetDiskFreeSpace- ը սխալ չի տալիս, երբ սկավառակը հեռացվում է սկավառակից:



Петрук Игорь   (2004-10-31 09:22) [8]

FindFirst գործառույթը որոշ արժեք է վերադարձնում, եթե սկավառակում չկա սկավառակ: Այս օգնության համար դուք կարող եք գտնել այս արժեքը: Եթե ​​որեւէ սկավառակ չկա, սխալ հաղորդագրություն է հայտնվում: Գործառույթն իրականացնելիս ավելի լավ է բացառել բացառության բեռնաթափումը: Եվ դուք, Կիրիշխին, պատահաբար ոչ թե Կրեմանչուգից:



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: "WinAPI";
Ընթացիկ արխիվը `2004.12.12;
Բեռնել: [xml.tar.bz2];

Up





Հիշողություն `0.57 ՄԲ
Ժամանակը `0.056 գ
9-1092296171
Jura
2004-08-12 11:36
2004.12.12
Օգնություն


1-1101579193
վրա
2004-11-27 21:13
2004.12.12
RT_MENU


1-1101415483
Homa_Programer
2004-11-25 23:44
2004.12.12
վերանվանեք FOLDER


3-1100096254
Անդրեյ թիշ
2004-11-10 17:17
2004.12.12
Ինչպես ցույց տալ QuickReport- ի հաշվետվությունը ClientDataSet- ից միայն այդ գրառումները


1-1101762349
ՍԴ
2004-11-30 00:05
2004.12.12
սխալ





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский