Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Nujna informacia o sisteme / 6 сообщений из 6, страница 1 из 1
28.08.2003, 17:40
    #32250500
Tommy Smith
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nujna informacia o sisteme
esli kto znaet podskajite pojalusta kak mojno iz delphi uznat imia kompa na
kotorom zapushena proga I nazvanie jestkogo diska???
...
Рейтинг: 0 / 0
28.08.2003, 17:49
    #32250522
sv
sv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nujna informacia o sisteme
The GetComputerName function retrieves the computer name of the current system. This name is established at system startup, when it is initialized from the registry.
Что значит "название жесткого диска"?
...
Рейтинг: 0 / 0
28.08.2003, 17:54
    #32250533
Tommy Smith
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nujna informacia o sisteme
Spasiba za sovet!!!

Ved 'C' ne vsegda 'C' ego je dlia seti mojno kak to nazvat...tak vot eto imia mne i nujno ..kotorie vidno v seti....
...
Рейтинг: 0 / 0
28.08.2003, 19:10
    #32250631
CrazyMihey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nujna informacia o sisteme
Если узнать диск, с которого прога запущена, то потраши ParamStr( 0 ) , а если системный диск, то GetWindowsDirectory , GetSystemDirectory .
...
Рейтинг: 0 / 0
29.08.2003, 09:06
    #32250870
Zmeishe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nujna informacia o sisteme
Tommy Smith
>>I nazvanie jestkogo diska???

Это для C++Builder. Для Delphi думаю сами сможете переделать, кому это необходимо.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
#include <dir.h>

// Получаем имя диска на котором запустили нашу программу.
AnsiString NameDisk = ExtractFileDrive(Application->ExeName) +  ":\\" ;

// А теперь всё остальное об этом диске.
 LPCSTR lpRootPathName = NameDisk.c_str();
 char lpVolumeNameBuffer[ 16 ];     // Метка тома
 char lpFileSystemNameBuffer[ 16 ]; // FAT16, FAT32, CDFS, NTFS
 DWORD nVolumeNameSize =  16 ;
 DWORD lpVolumeSerialNumber =  0 ; // Номер присваиваемый диску после форматирования
 DWORD lpMaximumComponentLength =  0 ;
 DWORD lpFileSystemFlags =  0 ;
 DWORD nFileSystemNameSize = MAXFILE;

// Прототип этой функции должен быть в файле winbase.h
// Поэтому его надо включить директивой #include, 
// но лучше включить файл dir.h
 GetVolumeInformation(lpRootPathName,
                      lpVolumeNameBuffer,
                      nVolumeNameSize,
                      &lpNumber,
                      &lpMaximumComponentLength,
                      &lpFileSystemFlags,
                      lpFileSystemNameBuffer,
                      nFileSystemNameSize);
...
Рейтинг: 0 / 0
29.08.2003, 09:08
    #32250873
Zmeishe
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nujna informacia o sisteme
Returns the drive portion of a file name.

Unit

SysUtils

Category

file name utilities

extern PACKAGE AnsiString __fastcall ExtractFileDrive(const AnsiString FileName);

Description

On Windows, ExtractFileDrive returns an AnsiString containing the drive portion of a fully qualified path name for the file passed in the FileName. For file names with drive letters, the result is in the form “'<drive>'”. For file names with a UNC path the result is in the form “'\\<servername>\<sharename>'”. If the given path contains neither style of path prefix, the result is an empty string.On Linux, ExtractFileDrive always returns a zero-length string.
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Nujna informacia o sisteme / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]