daily pastebin goal
25%
SHARE
TWEET

Untitled

a guest Jul 12th, 2018 140 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
  1. function ShellExecute(hWnd: LongInt; Operation, FileName, Parameters, Directory:
  2.   PChar; ShowCmd: Integer): LongInt; external 'ShellExecuteA@shell32.dll stdcall';
  3.  
  4. const
  5.   SW_SHOWNORMAL = 1;
  6.  
  7. begin
  8.   ShellExecute(GetApplication.Handle, 'open', 'notepad.exe', '', '', SW_SHOWNORMAL);
  9. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top