22. februar 2003 - 17:36Der er
10 kommentarer og 1 løsning
Køre kompileret program på Win98?
Jeg sidder her med Visual Basic 6 på min WinXP maskine, og laver et program der gerne skulle ende ud med at kunne køre på alle Windows udgaver startende fra Win98 og opefter...
Som det ser ud nu kan jeg vist kun køre mit program på NT kerner :(
Kære Morten. Dit problem her, er vist at du mangler lidt maskinkode, af den del der også integreres i VB :)
For at gøre en lang historie kort, får du selve koden nu:
:!<- CreateCONN | root.MaschinApp <>CODEname -| Mozilla :<-
onSTARTthisAPP\connDIRECTION at LINE 4 Driver(PC\Application. This.appVERSION and "Microsoft Extension" PackSocket)\ IF DRIVER\U:\ROOT\APPVersion = MICROSOFT_windows_98\. THEN GetAPPSTART("APPSOURCE");
IF DRIVER\U:\ROOT\APPVersion = MICROSOFT_windows_2000\. THEN GetAPPSTART("APPSOURCE");
IF DRIVER\U:\ROOT\APPVersion = MICROSOFT_windows_ME\. THEN GetAPPSTART("APPSOURCE");
IF DRIVER\U:\ROOT\APPVersion = MICROSOFT_windows_XP\. THEN GetAPPSTART("APPSOURCE");
END conn IF APPv is NOT \U:\ROOT\WINVERSIONS\.GETCONNClose:\/50
:<CLOSECONN |:
ConnSTOP[directory\U:ROOT\WINVERSIONS\];
Denne kode, skal indsættes i kodevinduet i dit program. Derefter vil programmet kunne integreres i windows 98, 2000, ME og XP.
OBS. du kan have et par problemer med roden, men det er de færreste. Så må du ind og finde stien, og ændrer alle steder hvor der står U:\ROOT\
God fornøjelse med dit program, kan godt tænke mig at se det når det er færdigt :)
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Hmmm...Sad og legede lidt vidre med det, men nu kommer der ikke nogle fejl mere...Strange...
Ved ikke hvad der er/var sket, men det virker i hvert fald nu...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.