VPF::Ошибка при использовании System oO

uranpro

Дата 12.8.2008, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

выдает ошибку оО:
identifier redeclared: 'System'

Код


unit uAU;

interface

function  UpdateProgram(ExeName,Name,Path:string):boolean;
function  IPAddrToName(IPAddr : String): String;
function  GetLocalIP:  String;
procedure CreateCMD(Name,Path,exeName:string);

implementation

uses System, winsock, SysUtils, Types  ;

const
   CMDName :WideString = 'ProgramsAU.cmd';

function CreateProcessWithLogonW(UserName, Domain, Password: WideString;
   LogonFlag: dword; AppName, CmdLine: WideString; CrtFlag: dword; Env: pointer;
   CurentDir: WideString; StartInfo:pointer; ProcInfo:pointer):BOOL; stdcall;
   external 'advapi32.dll';

function  GetLocalIP:  String;
const  WSVer  =  $202;
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;

function IPAddrToName(IPAddr : String): String;
var  
 SockAddrIn: TSockAddrIn;
 HostEnt: PHostEnt;
 WSAData: TWSAData;
 s:string; i:integer;
begin
result:='';
WSAStartup($101, WSAData);
SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
if HostEnt<>nil then begin
 s:=StrPas(Hostent^.h_name);
 i:=1;
 while (i<length(s)) and (s[i]<>'.') do begin
  result:=result+s[i];
  inc(i);
  end;
 end;
end;

procedure CreateCMD(Name,Path,exeName:string);
var f:file of text;
begin
AssignFile(f,CMDName); Rewrite(f);
Writeln(f,'color A');
Writeln(f,'echo '+Name+' AutoUpdate, wait...');
Writeln(f,'copy \\mycomp'+path+exeName+'.exe '+exeName+'.exe');
Writeln(f,'Deletefile '+CMDName);
CloseFile(f);
end;

function UpdateProgram(ExeName,Name,Path:string):boolean;
const
 aName :WideString = 'name';
 aPass :WideString = 'pas';
var
 aSrv:string;
 si: TSTARTUPINFO;
 pi: TProcessInformation;
begin
result:=false;
CreateCMD(Name,Path,exeName);

aSrv:=IPAddrToName(GetLocalIP);
ZeroMemory(@si, sizeof(si));
si.cb := sizeof(si);

if CreateProcessWithLogonW(aName,aSrv,aPass,1,CMDName,CMDName,0, nil,'',@si, @pi)
then result:=true;
end;

end.

--------------------

I want a perfect soul

Alkash

Дата 12.8.2008, 13:15 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

System из юзес убери...

--------------------

Подпись >> /dev/null

THandle

Дата 12.8.2008, 13:18 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Delphi автоматически подключает модуль System, поэтому и пишет что это повтор...

http://forum.vingrad.ru/topic-114950.html

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »