Skifte Affinity i en app

Dav

Jeg sidder med en baggrundsmaskine der har kørt flere år - lige til den dag den blev installeret på en Dula-CPU maskine. (Bruger en ActiveX fætter).

Jeg kan i task-manager sætte affinity på min proces så den kun bruger een cpu og vupti virker det igen.

Jeg har så prøvet at eftergøre stuntet i Delphi (dpr.filen lige efter mainform er created) men det virker ikke?

vHandle := AWirenewsConverterMainForm.Handle;

GetProcessAffinityMask(vHandle, vMaskProcess, vMaskSystem);
showmessage(\'vMaskProcess:\' + #9 + IntToStr(vMaskProcess) + #13#10 +
            \'vMaskSystem:\'  + #9 + IntToStr(vMaskSystem));
SetProcessAffinityMask(vHandle, 0);  // or 1
GetProcessAffinityMask(vHandle, vMaskProcess, vMaskSystem);
showmessage(\'vMaskProcess:\' + #9 + IntToStr(vMaskProcess) + #13#10 +
            \'vMaskSystem:\'  + #9 + IntToStr(vMaskSystem));

Nogen der har fiflet med noget lignende?

Jeg har flere point for at hurtigt svar... De er ved at vågne i Washington nu :-)