Heh ! Jeg fandt denne java-kode på dk.edb.internet, der efter sigende skulle
gøre det samme - hvis der er nogen der skulle have forstand på både java og
delphi, kunne jeg godt tænke mig at vide hvordan denne kode fungerer
---
private static int KEYEVENTF_EXTENDEDKEY = 0x1;
private static int KEYEVENTF_KEYUP = 0x2;
public void setValue(String name, String value) throws JSException {
JSObject window = JSObject.getWindow(this);
JSObject document = (JSObject) window.getMember("document");
JSObject all = (JSObject) document.getMember("all");
JSObject input = (JSObject) all.getMember(name);
input.call("select", null);
try {
if (Class.forName("com.ms.security.PolicyEngine") != null) {
PolicyEngine.assertPermission(PermissionID.SYSTEM);
}
} catch (Throwable e) {}
StringSelection s = new StringSelection(value);
Toolkit.getDefaultToolkit().getSystemClipboard().setContents(s, s);
//det onde hack
int [] param = new int[] {0};
keybd_event(0x11, 0x9d, KEYEVENTF_EXTENDEDKEY | 0, param);
keybd_event(0x56, 0x81, KEYEVENTF_EXTENDEDKEY | 0, param);
keybd_event(0x56, 0x81,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, param);
keybd_event(0x11, 0x9d,
KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, param);
try {
if (Class.forName("com.ms.security.PolicyEngine") != null) {
PolicyEngine.revertPermission(PermissionID.SYSTEM);
}
} catch (Throwable e) {}
}
---
Se evt. det projekt jeg mangler det for på min side...
--
- Thomas
~~~~~~~~
....
http://www.FlowCode.f2s.com - where code flows
.... mailto:blomme@post.com - where email goes