Char Szfile [MAX_PATH];
Char Szpath [MAX_PATH];
GetModuleFileName (NULL, SZFILE, MAX_PATH);
SIZE_T I;
For (i = strlen (szfile) -1; I> 0 && Szfile [i]! = '//'; i -);
SZFILE [I] = '/ 0';
Strcpy (szpath, szfile);