Etot fuksiya vsegda vozvrasaet false.kto pomojet v chem osibka

function ValidateUserLogonAPI(Const  UserName: string;   Const Domain: string;
   Const PassWord: string) : boolean;
var
 Retvar: boolean;
 LHandle: THandle;
begin
 Retvar := LogonUser(PWideChar(UserName),
                               PWideChar(Domain),
                               PWideChar(PassWord),
                               LOGON32_LOGON_NETWORK,
                               LOGON32_PROVIDER_DEFAULT,
                               LHandle);

 if Retvar then
   CloseHandle(LHandle);

 Result := true;//Retvar
end;

> Etot fuksiya

О_о +5!

Ну если у Вас D7 - то String - это AnsiString, поэтому напрямую в PWideChar преобразовывать нельзя. Используйте неюникодовский вариант

Retvar := LogonUserA(PAnsiChar(UserName),
                              PAnsiChar(Domain),
                              PAnsiChar(PassWord),
                              LOGON32_LOGON_NETWORK,
                              LOGON32_PROVIDER_DEFAULT,
                              LHandle);

delhpi 2009 no eto toje ne rabotal

Смотрите GetLastError.