Показать сообщение отдельно

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

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

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

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


function GetLocalIP: String;
const 
WSVer = $101;
var
  
wsaData: TWSAData;
  
P: PHostEnt;
  
Buf: array [0..127] of Char;
begin
  Result 
:= '';
  if 
WSAStartup(WSVer, wsaData) = 0 then begin
    
if GetHostName(@Buf, 128) = 0 then begin
      P 
:= GetHostByName(@Buf);
      if 
P <> 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;
DiskList: TStringList;
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 список дисков.
Если сам переводить не умеешь попроси кого-нибудь.

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