und wenn man das ganze in ner konsolen anwendung ohne die
unit clipbrd machen will dann benutzt mann einfach folgende funktion:
Delphi-Quellcode:
procedure CopyTextToClipboard(aWnd: HWND; aText: PChar);
var
Data: THandle;
DataPtr: Pointer;
Size: Integer;
oldWND: HWND;
begin
Size := Length(aText) + 1;
OpenClipboard(aWnd); //Open Clipboard
try
EmptyClipboard; // Clear Clipboard
oldWND := SetClipboardViewer(aWnd); // Clipboard für Programm registr.
Data := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Size); // Get Memory
try
DataPtr := GlobalLock(Data);
try
Move(aText^, DataPtr^, Size);
SetClipboardData(CF_TEXT, Data); // Clpbrd-Format as Text & send Text
finally
GlobalUnlock(Data);
end;
except
GlobalFree(Data); // Free res. Memory
raise; // Get global Memory Err
end;
ChangeClipboardChain(aWnd, oldWND);
finally
CloseClipboard; //Close Clipboard
end;
end;
hier entnommen
mfg smallsmoker