WNetAddConnection2

Zdr,
Imam lokalna mreja i resurs \\ILKO i sdyotwetno dri ot tozi res QQQ v tazi dir ima file prob.txt koyto izkam da otworq s fopen.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
FILE *p;
NETRESOURCE net;

net.dwType=RESOURCETYPE_DISK;
net.lpLocalName="Z:";
net.lpRemoteName="\\\ilko\\QQQ";


::WNetAddConnection2(&net,(LPSTR)NULL,(LPSTR)NULL,0);
if((p=fopen("Z:\\prob.txt","rb"))==NULL)
Label1->Caption=AnsiString("Greshka");
else
Label1->Caption=AnsiString("Vqrno");
}


Wyprosa mi e kyde gresha. Programta se kompilira no sled kato se opitam da otworq file mi dawa gre6ka.

Аз съм Александър:)

ICQ 288254705

Nqmam.
Towa mi e-adressa ilko_k_v@abv.bg