Moin The Seed,
Zitat von
the_seed:
nur zeigt meine delphi
ide tausend fehler an
ist es im Bereich des Möglichen, dass Du zu Übertreibungen neigst?
Ausser der genannten
Unit könntest Du noch Variants, LmShare und LmAccess weglassen, sowie die var Deklarationen direkt vor implementation, da diese Angaben alle nicht benötigt werden.
Dann muss noch etwas hinzugefügt werden, nämlich zwei Konstanten
Delphi-Quellcode:
STYPE_DISKTREE = 0; // aus LMShare.H
ACCESS_ALL = $7F; // aus LMaccess.h
und eine Funktionsdeklaration
Delphi-Quellcode:
function NetShareAdd (
const servername : PWChar;
const level : DWORD;
const buf : PByte;
const parm_err : PDWORD
) : NET_API_STATUS; stdcall; external 'netapi32.dll';