Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
OK. Aber es wäre theoretisch möglich, die Methode von Luckie (2. Source, der anfängt mit "Nach ein paar Unterredungen in ICQ ist folgendes herausgekommen:") zu nutzen, richtig? Denn dann würde ich doch diese Methode nehmen, da diese diejenige ist, dir mir derzeit am ehesten zusagt.
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Das ist die Zeile in der @aUserBuffer steht. Und an der Stelle steht auch der Cursor... Markieren kann ich auch nochmal machen
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Also, nochmal *wimmer*:
procedure ListAllUsers(hTreeView: DWORD; hMasterParent: Cardinal; var iEntriesRead: Cardinal);
var
aTempIStruct: TTVInsertStruct;
aUserBuffer, aWorkBuffer: PUSERINFO0;
dwEntriesRead: Cardinal;
i: integer;
sTemp: string;
begin
aTempIStruct.item.mask := TVIF_TEXT;
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
HILFE!!!! Ich drehe hier noch durch. Also, wenn ich das mache, was du gemacht hast, dann kommt:
Allerdings ist bei mir bufptr mit var versehen und so steht es auch bei den Jedis...
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Ätsch, Bätsch ausgetrickst. Wenn ich
inc(integer(aWorkBuffer), sizeOf(PUSERINFO0));
mache gibts kein Problem, aber nachdem ich nun einfach
inc(aWorkBuffer); {oder} inc(integer(aWorkBuffer));
mache, dann gibts ne' AccessViolation...
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Oops: Es muss wohl eher
inc(integer(aWorkBuffer));
heißen, da sonst:
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Hi Christian,
habe das gerade noch geändert... Lese mir aber gleich nochmal alle Threads zu diesem Thema durch...
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Nach ein paar Unterredungen in ICQ ist folgendes herausgekommen:
procedure ListAllUsers(hTreeView: DWORD; hMasterParent: Cardinal; var iEntriesRead: Cardinal);
{type
PUSER_INFO_0 = ^_USER_INFO_0;
PUSER_INFO_11 = ^_USER_INFO_11;}
var
aTempIStruct: TTVInsertStruct;
aUserBuffer, aWorkBuffer: Pointer; //PUSER_INFO_0;
dwEntriesRead: Cardinal;
i: integer;
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Wie bereits per ICQ mitgeteilt: hat nix gebracht...
Chris
Forum: Win32/Win64 API (native code)
Delphi
by CalganX,
7. Feb 2003
Hi,
entweder ich bin blöd, oder der Kompiler ist kaputt. Also, ersteinmal meine Definition der NetUserEnum aus JwaLM:
function NetUserEnum(
const servername: LPCWSTR;
const level: DWORD;
const filter: DWORD;
const bufptr: Pointer;
const prefmaxlen: DWORD;
var entriesread: DWORD;
var totalentries: DWORD;
