daily pastebin goal
11%
SHARE
TWEET

Untitled

a guest Jul 12th, 2018 124 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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