Сообщение от
donetsk
Вот я написал по твоему совету, но как дальше без компонента IdSMTP отправлять полученные даныне ?
Как узнавать айпи адреса и все параметры сетевой карты?
Можно ли в консольное приложения вставлять компоненты я не представляю себе как....
Вот и сходник и экзешние в архиве,
но ведь использовать SysUtils всё равно придеться т.е. нужно определять IntToHex а SysUtils -это 38 кб .
и отключать {$APPTYPE CONSOLE} не получается чтобы не отображалась консоль
_http://anticlubtimer.narod.ru/mac.exe
Ай-пи можно получить так:
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;
должно работать непроверял...
Можно не использовать форму и использовать комопенты... впринцыпе нужно попробовать заюзать winsock для отправки почты менше хоть весить будет ексешник.
Да и вот что отключить можно всё
только вот непонимаю зачем тибе консоль создай proga.dpr открой его в Delphi и пиши на нечистом извратном винАПИ