Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > С Delphi на Builder

Автор: Gordon 4.8.2006, 21:05

Знатоки, помогите перевести код, пожайлуста:

Код


procedure TForm1.FormActivate(Sender: TObject);
var
SerialNum:Pdword;
a,b:Dword;
buffer:array [0..255] of char;
begin
new(SerialNum);
if getVolumeInformation('c:\',buffer,sizeof(buffer),SerialNum,a,b,nil,0)
then begin
Label1.Caption:=IntToStr(SerialNum^); // сюда запишется серийный номер твоего винта
Dispose(SerialNum);
end;
if (Label1.Caption<>Label2.Caption) and  (Label1.Caption<>Label3.Caption)then begin
//Label2.Caption и Label3.Caption - номера винтов где надо запускать прогу
close;
end
else begin
Label2.Caption:=IntToStr(SerialNum^); // просто так
end;

Автор: Albinos_x 4.8.2006, 21:15

тебе наверно всё-таки сюда
http://forum.vingrad.ru/index.php?showforum=94

Добавлено @ 21:16
или сюда:
http://forum.vingrad.ru/index.php?showforum=142

Автор: Gordon 4.8.2006, 21:22

Albinos_x, помогут?

Автор: Romikgy 4.8.2006, 21:24

Кто знает оба языка и у кого куча свободного времени обязательно поможет smile

Автор: Gordon 4.8.2006, 22:03

Хотелось бы, пусть хоть со слова "begin" все равно буду очень рад!!!

Автор: MFSham 5.8.2006, 15:01

Давненько я не разбирал код Delphi smile

Особо не вдаваясь в подробности вот что у меня получилось:

В Help'е нашел следующее описание GetVolumInformation

Цитата

The GetVolumeInformation function returns information about a file system and volume whose root directory is specified.

BOOL GetVolumeInformation(

    LPCTSTR lpRootPathName,    // address of root directory of the file system
    LPTSTR lpVolumeNameBuffer,    // address of name of the volume
    DWORD nVolumeNameSize,    // length of lpVolumeNameBuffer
    LPDWORD lpVolumeSerialNumber,    // address of volume serial number
    LPDWORD lpMaximumComponentLength,    // address of system's maximum filename length
    LPDWORD lpFileSystemFlags,    // address of file system flags
    LPTSTR lpFileSystemNameBuffer,    // address of name of file system
    DWORD nFileSystemNameSize  // length of lpFileSystemNameBuffer
   );
...

Ну а далее сам код:

Код


void __fastcall TForm1::FormActivate(TObject *Sender)
{
    LPCTSTR SerialNum;
    LPDWORD a,b;
    LPTSTR buffer[255];

    if ( GetVolumeInformation("c:/",buffer,sizeof(buffer),SerialNum,a,b, ... ,0) )
    {
        Label1->Caption = SerialNum;
    }

    if ( (Label1->Caption != Label2->Caption) &&
         (Label1->Caption != Label3->Caption) )
    {
        // то что нужно
    }
    else
    {
         Label2->Caption = SerialNum;
    }
}

Ты еще с указателями там организовал, но я на скорую руку их опустил.
Если хочешь почитай про new и delete.

Автор: Gordon 5.8.2006, 17:53

MFSham, спасибо большое за помошь!!!!!!! smile

Автор: Gordon 5.8.2006, 18:46

Цитата

GetVolumeInformation("c:/",buffer,sizeof(buffer),SerialNum,a,b, ... ,0)

MFSham, подскажи пожайлуста, что написать вместо "...". Я покапался в справке и нашел приблизительно такай ответ:

Цитата

Укажите на буффер, который получает имя файловой системы(типа Fat или NTFS).

Вроде так...

P.S. Что это за буффер smile

Автор: MFSham 5.8.2006, 20:21

Вот тебе несколько ссылок, посмотри, там ничего сложного нету:
http://www.citforum.ru/programming/advice/advice02.shtml
http://www.sources.ru/builder/faq/012.html
http://megalib.com/books/1052/040.html
http://www.firststeps.ru/mfc/winapi/r.php?7
http://maxim.z.tripod.com/visual/visual24.html

Если не разберешься, то спрашивай smile

Автор: Gordon 5.8.2006, 20:52

Спасибо поищу smile

Автор: Gordon 5.8.2006, 21:46

MFSham. на подскажешь, как можно узнать. с какого диска запущена моя прога? Плз...

Добавлено @ 21:48
Прошу прощение: не подскажешь

Автор: MFSham 5.8.2006, 22:56

Искал... Вот что-то приблизительное нашел: http://forum.vingrad.ru/index.php?showtopic=106954
а после можно самому определить имя диска.

Есть еще ф-ия GetLogicalDrives(), она возвращает не конкретно имя диска, а все имеющиеся + параметры.
В нете(хелпе) более подробно можно почитать.

Автор: Gordon 6.8.2006, 12:54

MFSham, спасибо, буду смотреть!!! smile

Автор: Gordon 6.8.2006, 14:35

Совместными усилиями нашли: ExtractFileDrive(Application->ExeName)ж

Автор: 586 6.8.2006, 14:41

перевёл

Код

void __fastcall TForm1::FormActivate(TObject *Sender)
{
 DWORD SerialNum, a, b;
 char buffer[256];
 if(GetVolumeInformation("C:\\", buffer, sizeof(buffer), &SerialNum, &a, &b, 0, 0))
 {
  Label1->Caption=IntToStr(SerialNum);
  Dispose(SerialNum);
 }
 if ((Label1->Caption!=Label2->Caption)&&(Label1->Caption!=Label3->Caption))
  Close();
 else
  Label2->Caption=IntToStr(SerialNum);
}

Автор: Gordon 6.8.2006, 15:13

586, и тебе спасибо!!! smile