TOPIC:

1. Trying to convert an old Delphi4 program.  The compiler doesn't recognize GetWindowDC (GetDesktopWindow);

var R : TRect; DeskTop : TCanvas;
begin

     with DeskTop do
          Handle := GetWindowDC (GetDesktopWindow);


2. Compiler doesn't recognize these marked with -->:

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   ProcessID : DWORD;
   ProcessHandle : THandle;
   ThreadHandle : THandle;
begin

//set highest priority
-->   ProcessID := GetCurrentProcessID;
-->   ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION, false, ProcessID);
-->   SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);
-->   ThreadHandle := GetCurrentThread;
-->   SetThreadPriority(ThreadHandle, THREAD_PRIORITY_TIME_CRITICAL);


Thanks for any help.

 

Did you add to the Uses section "Windows" unit ?

Yes, Windows is in the units section.

Please, any sample project for tests ?

This thing is huge.  Probably not worth it.  Thanks.  By the way, I travel and can't get back quickly.