dragnor Juniormester
11. januar 2016 - 08:55 Der er 4 kommentarer og
1 løsning

Kill process on Windows NT 6.2

Hej Eksperter,

Jeg har følgende kode som har virket fint på en windows 7 computer.

Nu er min Access database blevet flyttet til en Windows Server NT 6.2, og nu virker den ikke.

Den får det korrekte windows process id og koden fejler ikke, men den lukker ikke processen som den burde.

Kan nogen hjælpe med at forstå hvad der går galt?

Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long
Private Const WM_CLOSE = &H10

Public Function KILLAPP(winHwnd As Long)
Dim RetVal As Long
SendMessage winHwnd, WM_CLOSE, 0, 0
End Function
terry Ekspert
11. januar 2016 - 10:57 #1
Have you tried compiling program (dB) to ensure you have no missing references? Just a suggestion, may have nothing at all to do with problem.
terry Ekspert
11. januar 2016 - 11:07 #2
Also found this link which seems to suggest that things may not be the same in NT.

http://www.vbforums.com/showthread.php?105934-To-kill-an-app-(path-program-exe)-in-Windows-NT-family
dragnor Juniormester
11. januar 2016 - 17:06 #3
Your comment lead me to something usefull so please make a answer. Tomorrow I will post the solution :-)
terry Ekspert
11. januar 2016 - 19:24 #4
Hope you found a solution :-)
terry Ekspert
12. januar 2016 - 09:55 #5
Thanks, hope we get to see the working code.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Test: Kæmpestort gaming-headset er perfekt til dine lange Teams-møder - men har også nogle besværligheder
Længe før vi andre blev slået hjem til hjemmekontorets endeløse webmøder har gamerne gennemskuet behovet for komfortabelt grej. Så vi tog danske EPOS top gamingheadset med på arbejde. Læs testen her.
Computerworld
Biden sender skjult besked til kode-folket: "Hvis du læser dette, har vi brug for din hjælp”
En stående invitation er blevet opdaget i kildekoden på Det Hvide Hus' hjemmeside. Men den er kun til de eksperter, der selv kan finde den.
CIO
Podcast: Hos Viking Life-Saving Equipment er it gået fra at være backend til at være noget, som kunderne spørger aktivt efter
Podcast, The Digital Edge: Viking leverer en stadig større del af deres produkt som en tjeneste. Som en del af tjenesten tager Viking ansvar for sikkerheden ved at levere, dokumentere og vedligeholde det nødvendige sikkerhedsudstyr. Hør hvordan Henrik Balslev senior digital director hos Viking har løftet den opgave.
White paper
Sådan kan du arbejde effektivt uanset tid, sted og type af enhed
Hvad nu hvis dit arbejde, din information, dine processer og teknologien bag ved, var organiseret på en måde så det passede til din organisation – alt sammen guidet af en intelligent udgave af det digitale arbejdsrum? Det er visionen bag Atea og Citrix´s samarbejde med digital workspace – en smartere og mere effektiv måde at arbejde på. I dette whitetpaper kan du derfor læse om, hvordan du kan skabe et mere effektivt og brugervenligt arbejdsrum uanset tid, sted og enhed. En løsning der på en gang er både enkel og som sætter brugeren i centrum.