Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Exe not Exe
Message
 
To
15/06/2005 07:02:33
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Environment versions
Visual FoxPro:
VFP 6
OS:
Windows '98
Network:
Windows 98
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01017386
Message ID:
01023398
Views:
18
>Hi Tariq,
>
>As this is not the solution it may help you to know what's going on, kave a look at...
>
>http://www.tech-archive.net/Archive/Fox/microsoft.public.fox.programmer.exchange/2004-02/0651.html
>
>... read the messages and click on 'Next in Thread'

I got Tariq EXE, strangest thing is that the EXE Starts and show Open File window and force you to choose what program you want to DO, If you select the same EXE THEN you receive this message. If you select some FXP or APP there is no problems. The Project itself has nothing complicated in it, one PRG with few lines of code. No GetFile() no OpenDialog involves in this code.
Here:
set talk off
set resource off
SET Default To (Sys(5)+Alltrim(Sys(2003)))

_SCREEN.VISIBLE = .F.
Declare String CpuID In utility.Dll
cp1=alltrim(CpuID())

LOCAL LCROOTPATHNAME , LCVOLUMENAMEBUFFER , LNVOLUMENAMESIZE , ;
	LNVOLUMESERIALNUMBER , LNMAXIMUMCOMPONENTLENGTH, LNFILESYSTEMFLAGS , ;
	LCFILESYSTEMNAMEBUFFER, LNFILESYSTEMNAMESIZE , LCVOLNAME

DECLARE SHORT GetVolumeInformation IN kernel32 ;
	STRING lpRootPathName,;
	STRING @lpVolumeNameBuffer,;
	INTEGER nVolumeNameSize,;
	INTEGER @lpVolumeSerialNumber,;
	INTEGER @lpMaximumComponentLength,;
	INTEGER @lpFlags,;
	STRING @lpFileSystemNameBuffer,;
	INTEGER nFileSystemNameSize

LCROOTPATHNAME = "C:\"
LCVOLUMENAMEBUFFER = SPACE(256)
LNVOLUMENAMESIZE = 256
LNVOLUMESERIALNUMBER = 0
LNMAXIMUMCOMPONENTLENGTH = 256
LNFILESYSTEMFLAGS = 0
LCFILESYSTEMNAMEBUFFER = SPACE(256)
LNFILESYSTEMNAMESIZE = 256

=GETVOLUMEINFORMATION(@LCROOTPATHNAME , @LCVOLUMENAMEBUFFER , ;
	LNVOLUMENAMESIZE , @LNVOLUMESERIALNUMBER, ;
	@LNMAXIMUMCOMPONENTLENGTH, @LNFILESYSTEMFLAGS , ;
	@LCFILESYSTEMNAMEBUFFER , LNFILESYSTEMNAMESIZE )

hdsr= TRANSFORM(LNVOLUMESERIALNUMBER)

Declare String CpuID In utility.Dll
cp1=alltrim(CpuID())
messagebox("Processor"+chr(13);
+cp1+chr(13)+chr(13)+"Hard Disk"+chr(13)+hdsr,0+32,"Serial No.")

_SCREEN.VISIBLE = .T.
Tha is whole project. But as I said when you run the EXE OpenDialog appears.
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform