Da die Clipboard-Klasse mein Programm regelrecht aufbläht (82 KB auf 3XX KB), habe ich hier nach eigenen Clipboards gesucht.
Und ich bin auch fündig geworden:
[nonVCL] Send to Clipboard as Name - Eigenbau
Funktionier soweit auch ganz gut, nur wollte ich gerne die Funktion vor allen anderen Aufrufen, also so ähnloich wie das:
Delphi-Quellcode:
if ParamCount > 0 then
CopyTextToClipboard({???}, PChar(ParamStr(1))); // <!---
//\\ ***** //\\
if (not FileExists(ParamStr(1))) or (ParamCount = 0) then begin
wc.hInstance := hInstance;
wc.hIcon := LoadIcon(hInstance, MAKEINTRESOURCE(100));
wc.hCursor := LoadCursor(0, IDC_ARROW);
wc.hbrBackground := GetSysColorBrush(COLOR_3DFACE);
RegisterClassEx(wc);
CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_APPWINDOW, ClassName, AppName, WS_CAPTION or WS_VISIBLE or WS_SYSMENU, CW_USEDEFAULT, CW_USEDEFAULT, 119, 103, 0, 0, hInstance, nil);
while GetMessage(msg,0,0,0) do begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
ExitCode := msg.wParam;
end;
Das Problem ist nun, dass diese Funktion 2 Parameter erwartet, ich aber nur den 2. liefern kann...
Wie kann ich nun die Funktion umschreiben, dass sie auch ohne der "hWnd" funktiniert?