HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

  #3  
Старый 29.10.2008, 17:21
o_OBallers
Banned
Регистрация: 11.10.2007
Сообщений: 54
С нами: 9781091

Репутация: 84
По умолчанию

Даю на делфи, переписать на C++, пару минут

Определение ip
PHP код:
uses winsock 


function GetLocalIPString;
const 
WSVer = $101;
var
  
wsaDataTWSAData;
  
PPHostEnt;
  
Buf: array [0..127of Char;
begin
  Result 
:= '';
  if 
WSAStartup(WSVerwsaData) = 0 then begin
    
if GetHostName(@Buf128) = 0 then begin
      P 
:= GetHostByName(@Buf);
      if 
<> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    
end;
    
WSACleanup;
  
end;
end
Список дисков
PHP код:
function DiskInDrive(const Drive:char):Boolean;
var
    
DrvNum:byte;
    
EMode:Word;
begin
  result
:=false;
  
DrvNum:=ord(Drive);
  if 
DrvNum >= ord('a'then
    dec
(DrvNum, $20);
  
EMode:=SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    if 
DiskSize(DrvNum - $40) <> -1 then
      result
:=true
    
else
      
messagebeep(0);
  finally
    
SetErrorMode(EMode);
  
end;
end;

var 
Alfavit:string[26]='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
AlfavitCount:integer;
DiskListTStringList;
begin
DiskList
:=TStringList.Create;
        for 
AlfavitCount:=0 to 25 do
          
begin
            
if DiskInDrive(Alfavit[AlfavitCount]) then DiskList.Add(Alfavit[AlfavitCount]);
          
end;
DiskList.Free;
end
В списке DiskList список дисков.
Если сам переводить не умеешь попроси кого-нибудь.

Да и чуть не забыл когда будешь писать воспользуйся тремя китами парадигмы ООП, это очень важно,
удачи тебе рукодельник.
 
Ответить с цитированием
 



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как стать хакером! foreva Болталка 19 12.12.2007 00:12



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.