![\"logo\"](\"https:\/\/i0.wp.com\/www.baronsoftware.com\/Blog\/wp-content\/uploads\/2014\/12\/logo.jpg?resize=450%2C80&ssl=1\"){kind=logo}
<\/p>\n<\/p>\n
Since Windows 10 has been released there has been hiccups when dealing with the Windows API. The strange behavior may not return an error code and may actually end up doing nothing leaving you more perplexed then ever.
\nFor Delphi developers the best thing to do is retire the ShellExecute API call and convert it over to ShellExecuteEX or to create a separate process you should use CreateProcess.<\/p>\n
work under Windows 7 and 8, which would start the Acrobat Reader and open the file but under Windows 10 this no longer is the case. So the next step was to update the call to use ShellExecuteEX instead.<\/p>\n try The actual code will prepare the Object ShellInfo to contain all of the necessary data to start up the Acrobat Reader and display the generated PDF.<\/p>\n In the case of Createprocess API call the following code does the trick but realize the problem of this call, passing in a parameter will not work. Most likely you will not see anything. There are numerous<\/p>\n begin ProcessCreated := CreateProcess(nil, PChar(ProgramName), nil, nil,False, CloseHandle(ProcInfo.hProcess); The Windows API indicates that the first line should be the Application that you wish to start and the second parameter should be any arguments you wish to send to the application. On Windows 10 this is something that was not working correctly. This does work and you can modify it to whatever you need it to do.\u00a0 It is\u00a0Ok for you to use ShellExecuteEX\u00a0and simply using what has been demonstrated above.<\/p>\n <\/p>\n","protected":false},"excerpt":{"rendered":" Delphi Create a Process or Shelling to start up an external application. Since Windows 10 has been released there has been hiccups when dealing with the Windows API. The strange behavior may not return an error code and may actually end up doing nothing leaving you more perplexed then ever. For Delphi developers the best […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"rop_custom_images_group":[],"rop_custom_messages_group":[],"rop_publish_now":"initial","rop_publish_now_accounts":[],"rop_publish_now_history":[],"rop_publish_now_status":"pending","_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":true,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[11,5,31],"tags":[21,20,7,13,47,15,9,6,24,27],"class_list":["post-212","post","type-post","status-publish","format-standard","hentry","category-pc-tips-bits-bytes","category-rad-studio-embarcadero-delphi-development","category-software-development-concepts","tag-computers","tag-delphi","tag-development","tag-embarcadero","tag-idera","tag-microsoft","tag-pascal","tag-software","tag-windows-10","tag-windows-7"],"yoast_head":"\n
\nShellExecute(0, 'open', Pchar('DocumentName.pdf'), '', '', SW_SHOWNORMAL);<\/strong>
\n<\/code><\/p>\n
\n ShellInfo := Default(TShellExecuteInfo);
\nShellInfo.cbSize := SizeOf(TShellExecuteInfo);
\nShellInfo.lpFile := PChar(Current_Client_Documents + FileName +'.pdf');
\nShellInfo.nShow := SW_SHOWNORMAL;<\/strong><\/code><\/p>\n
\nShellExecuteEx(@ShellInfo);<\/p>\n
\nprocedure ExecProcess(ProgramName : String; Wait: Boolean);
\nvar
\nStartupInfo : TStartupInfo;
\nProcessInfo : TProcessInformation;
\nProcessCreated : Boolean;<\/code><\/p>\n
\n{ fill with known state }
\nFillChar(StartupInfo,SizeOf(TStartupInfo),#0);
\nFillChar(ProcessInfo,SizeOf(TProcessInformation),#0);
\nStartupInfo.cb := SizeOf(TStartupInfo);<\/p>\n
\nCREATE_NEW_PROCESS_GROUP+NORMAL_PRIORITY_CLASS,
\nnil, nil, StartupInfo, ProcessInfo);
\n{ Check whether to wait }
\nif ProcessCreated then
\nbegin
\nif Wait then
\nWaitForSingleObject(ProcessInfo.hProcess, INFINITE)
\nelse
\nShowMessage(Error: The ‘+ProgramName+’ could not execute!’);
\nend;<\/p>\n
\nCloseHandle(ProcInfo.hThread);
\nend;<\/p>\n\u00a0Wrap-up<\/h3>\n
\n
\nBOOL WINAPI CreateProcess(
\n_In_opt_ LPCTSTR lpApplicationName,
\n_Inout_opt_ LPTSTR lpCommandLine,
\n_In_opt_ LPSECURITY_ATTRIBUTES lpProcessAttributes,
\n_In_opt_ LPSECURITY_ATTRIBUTES lpThreadAttributes,
\n_In_ BOOL bInheritHandles,
\n_In_ DWORD dwCreationFlags,
\n_In_opt_ LPVOID lpEnvironment,
\n_In_opt_ LPCTSTR lpCurrentDirectory,
\n_In_ LPSTARTUPINFO lpStartupInfo,
\n_Out_ LPPROCESS_INFORMATION lpProcessInformation
\n);
\n<\/code><\/p>\n