[es] - GetUserName funkcija u Kylix3.0-u?

bulvaj
Vodoinstalater

Član broj: 28124
Poruke: 26
*.041net.co.yu

Profil

^{30.08.2004. u 20:33 - pre 239 meseci}

Evo ovako,

u API postoji funkcija GetUserName koja vraca UserName trenutno aktivnog usera(sistemskog).Koristio sam je u VB . Postoji funkcija istog imena u Kylix-u ali ona vraca usera koji se prijavio na neku DB.Meni treba username "sistemskog" korisnika, onog koji se prijavio na Linux.Postoji li takva funkcija koja se koristi u Kylix-u?

Hvala na pomoci.

Kisni covek prerusen u coveka-vuka.

Odgovor na temu

mpeja
Miloš Pejović
Beograd

Član broj: 26914
Poruke: 8
*.drenik.net

Jabber: mpeja@elitesecurity.org
ICQ: 36434349

Profil

Re: GetUserName funkcija u Kylix3.0-u?

^{02.09.2004. u 09:04 - pre 238 meseci}

Ja sam to ovako resio:

Code:

function CommaStr (Position: integer; CommaChar: char; const st: string): string;
var i, b, e, n: integer;
begin
  i := 1;
  b := 0;
  n := 1;
  e := Length (st);
  while i <= Length (st) do
    begin
      if st[i] = CommaChar then
        if Position = n then
          begin
            e := i - 1;
            break;
          end
        else
          begin
            b := i;
            n := n + 1;
          end;
      i := i + 1;
    end;
  Result := Copy (st, b + 1, e - b);
end;

function GetUserName: string;
var passfile: TextFile;
    s: string;
    uid: integer;
begin
  AssignFile(passfile, '/etc/passwd');
  Reset(passfile);
  Result := '';
  uid := getuid;
  while not eof(passfile) do
    begin
      readln (passfile, s);
      if StrToIntDef(CommaStr(3, ':', s), -1) = uid then
        begin
          Result := CommaStr(1, ':', s);
          break;
        end;
    end;
  CloseFile(passfile);
end;

Trebalo bi samo da ukljucis Libc u uses sekciju.

Pozdrav

Odgovor na temu

bulvaj
Vodoinstalater

Član broj: 28124
Poruke: 26
*.041net.co.yu

Profil

Re: GetUserName funkcija u Kylix3.0-u?

^{02.09.2004. u 14:15 - pre 238 meseci}

Mnogo si mi pomogao .
Hvala ti.

Kisni covek prerusen u coveka-vuka.

Odgovor na temu

mpeja
Miloš Pejović
Beograd

Član broj: 26914
Poruke: 8
*.etf.bg.ac.yu

Jabber: mpeja@elitesecurity.org
ICQ: 36434349

Profil

Re: GetUserName funkcija u Kylix3.0-u?

^{03.09.2004. u 07:22 - pre 238 meseci}

Nema na cemu :)

Odgovor na temu