miguelandradebr

Thank you!

Changing the permission on .exe file to admin all is fine now, what do you mean with IDE elevated?

I've fixed it changing the .exe file to admin permissions, thanks guys!

Hello friends Is there no way to add any text to an application created in Delphi? Is it possible to paste any text into the notepad? It seems like something easy to implement but I haven't found a way yet. Thanks

This code works, but just from inside delphi/debugger: Clipboard.AsText := 'mypass'; Keybd_event(VK_CONTROL, 0, 0, 0); Keybd_event(Byte('V'), 0, 0, 0); Keybd_event(Byte('V'), 0, KEYEVENTF_KEYUP, 0); Keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); Keybd_event(VK_RETURN, 0, 0, 0); Keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); when you try from .exe file still dont working...

Seems that You're right. How I can turn around? Maybe I can create a driver or Windows Service? I accept suggestions Thanks in advance!

sleep its not working, I've tried to to use a timer with 5 seconds... and all works just using/running app inside Delphi/debugger

When I run my code inside delphi using debugger all works fine. When I compile exe and try the run the application its dont type write the keys.... very strange I'm using Delphi 7 and Windows 11 here is my code: procedure TForm1.Button3Click(Sender: TObject); var H : HWnd; begin H := FindWindow(nil, pchar('Kaspersky Password Manager')); if H <> 0 then begin // Try to bring target window to foreground ShowWindow(H,SW_SHOW); SetForegroundWindow(H); PostKeyEx32(Ord('O'), [ssShift], False); PostKeyEx32(Ord('Y'), [], False); PostKeyEx32(Ord('2'), [ssShift], True); //Arroba special symbol char @ PostKeyEx32(VK_RETURN, [], False) ; suggestion how to solve?

the friend Ledklom shared this with me in PM: tips.delphidabbler.com/tips/170 procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);type TShiftKeyInfo = record shift: Byte; vkey: Byte; end; ByteSet = set of 0..7;const shiftkeys: array [1..3] of TShiftKeyInfo = ( (shift: Ord(ssCtrl) ; vkey: VK_CONTROL), (shift: Ord(ssShift) ; vkey: VK_SHIFT), (shift: Ord(ssAlt) ; vkey: VK_MENU) );var flag: DWORD; bShift: ByteSet absolute shift; j: Integer;begin for j := 1 to 3 do begin if shiftkeys[j].shift in bShift then keybd_event( shiftkeys[j].vkey, MapVirtualKey(shiftkeys[j].vkey, 0), 0, 0 ); end; if specialkey then flag := KEYEVENTF_EXTENDEDKEY else flag := 0; keybd_event(key, MapvirtualKey(key, 0), flag, 0); flag := flag or KEYEVENTF_KEYUP; keybd_event(key, MapvirtualKey(key, 0), flag, 0); for j := 3 downto 1 do begin if shiftkeys[j].shift in bShift then keybd_event( shiftkeys[j].vkey, MapVirtualKey(shiftkeys[j].vkey, 0), KEYEVENTF_KEYUP, 0 ); end;end; usage: //Upercase PostKeyEx32(Ord('A'), [ssShift], False); //Lowercase PostKeyEx32(Ord('F'), [], False); PostKeyEx32(Ord('2'), [ssShift], True); //Arroba special symbol char @

ok thank you!

Hello @aehimselfour your component can be installed in what delphi version? Do you know if it works with Delphi 7? Thank you in advance!

with this using a button I can copy my password to clipboard: Clipboard.AsText := edit2.Text; and with this I can clean it: Clipboard.AsText := '';

Hello I want to create a Delphi application to type a password on Kaspersky Password Manager. How I Can create a delphi application to select the input on Kaspersky Password Manager? I need to use GetWindowHandle function? Later I need to paste my password on the password input on Password Manager Thanks

Hello I'm testing Delphi Community Edition Alexandria v.11 EdgeBrowser1.Navigate ('https://www.embarcadero.com'); This not working.... How to solve? Thanks