FoxClub Forums > Visual Foxpro, Foxpro for DOS > GetLogicalDriveStrings Help! ::

• Войти

GetLogicalDriveStrings Help!
Den_Lamer Автор Сообщений: 160 Откуда: Россия Дата регистрации: 05.09.2004	Den_Lamer 06.05.05 05:08:43 Есть такой код, но он не забивает массив именами дисков.Помогите поправить этот код.Заранее благодарю DECLARE INTEGER GetLogicalDriveStrings ; IN KERNEL32.DLL ; INTEGER nBufferLength,; STRING lpBuffer bufsize=25 DIMENSION lcText[bufsize] as Character STORE '' TO lcText =GetLogicalDriveStrings(bufsize,lcText)

Den_Lamer
Автор

Сообщений: 160
Откуда: Россия
Дата регистрации: 05.09.2004

Den_Lamer

06.05.05 05:08:43

Есть такой код, но он не забивает массив именами дисков.Помогите поправить этот код.Заранее благодарю

DECLARE INTEGER GetLogicalDriveStrings ;
IN KERNEL32.DLL ;
INTEGER nBufferLength,;
STRING lpBuffer
bufsize=25
DIMENSION lcText[bufsize] as Character
STORE '' TO lcText

=GetLogicalDriveStrings(bufsize,lcText)

Re: GetLogicalDriveStrings Help!
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 06.05.05 05:15:29 DECLARE INTEGER GetLogicalDriveStrings IN KERNEL32.DLL ; INTEGER nBufferLength,; STRING lpBuffer lcText=Replicate(Chr(0),255) =GetLogicalDriveStrings(Len(lcText),@lcText) lcText=Left(lcText,Atc(Chr(0)+Chr(0),lcText)) =ALines(tmp,lcText,.T.,Chr(0)) For i=1 to Alen(tmp) ? tmp[ i] Next ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: GetLogicalDriveStrings Help!

piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004

piva

06.05.05 05:15:29


DECLARE INTEGER GetLogicalDriveStrings IN KERNEL32.DLL ;
    INTEGER nBufferLength,;
    STRING lpBuffer

lcText=Replicate(Chr(0),255)
=GetLogicalDriveStrings(Len(lcText),@lcText)
lcText=Left(lcText,Atc(Chr(0)+Chr(0),lcText))
=ALines(tmp,lcText,.T.,Chr(0))
For i=1 to Alen(tmp)
    ? tmp[ i]
Next

------------------
Часто бывает так, что есть над чем задуматься, а нечем.

Re: GetLogicalDriveStrings Help!
Den_Lamer Автор Сообщений: 160 Откуда: Россия Дата регистрации: 05.09.2004	Den_Lamer 06.05.05 05:43:35 Спасибо сейчас попробую.

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 51 (Гостей: 51)