powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Nujna informacia o sisteme
6 сообщений из 6, страница 1 из 1
Nujna informacia o sisteme
    #32250500
Tommy Smith
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
esli kto znaet podskajite pojalusta kak mojno iz delphi uznat imia kompa na
kotorom zapushena proga I nazvanie jestkogo diska???
...
Рейтинг: 0 / 0
Nujna informacia o sisteme
    #32250522
sv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sv
Гость
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
Nujna informacia o sisteme
    #32250533
Tommy Smith
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
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
Nujna informacia o sisteme
    #32250631
Фотография CrazyMihey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если узнать диск, с которого прога запущена, то потраши ParamStr( 0 ) , а если системный диск, то GetWindowsDirectory , GetSystemDirectory .
...
Рейтинг: 0 / 0
Nujna informacia o sisteme
    #32250870
Фотография Zmeishe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
Nujna informacia o sisteme
    #32250873
Фотография Zmeishe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Nujna informacia o sisteme
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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