Forum: Win32/Win64 API (native code)
Delphi
by Shaman,
19. Aug 2004
Ich weiss, wollte nur zeigen, dass es geht :zwinker:
Man muss vielleicht noch genauere Bedingungen finden, wenn das ausgeführt werden soll.
Forum: Win32/Win64 API (native code)
Delphi
by Shaman,
19. Aug 2004
Hallo
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(Ord('C'), 0, 0, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
Sleep(10);
if Clipboard.HasFormat(CF_TEXT) then Caption:= Clipboard.AsText;
end;
Forum: Win32/Win64 API (native code)
Delphi
by Shaman,
18. Aug 2004
Hallo
function GetActiveControl: THandle;
var
ThreadID: Integer;
begin
ThreadID:= GetWindowThreadProcessID(GetForegroundWindow, nil);
if AttachThreadInput(GetCurrentThreadID, ThreadID, True) then begin
Result:= GetFocus; // Control in fremden Thread
AttachThreadInput(GetCurrentThreadID, ThreadID, False);