Ich würde es noch einfacher machen:
Delphi-Quellcode:
procedure TForm1.Vordergrund(WindowPos: Integer);
begin
SetWindowPos(Self.Handle, WindowPos, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
Aufruf mit:
Vordegrund(HWND_TOPMOST);
Und dann entsprechend mit Read- / WriteInteger lesen bzw. schreiben.