Ejecución de sqlplus en segundo nivel
Publicado por Mikel (37 intervenciones) el 07/11/2001 18:59:10
Hola:
Estoy intentado ejecutar la aplicación Sqlplus.exe de tal forma que no me muestre en pantalla las ventanas de sqlplus o mejor dicho que corra la aplicación en segundo nivel.
Estoy metiendo el siguiente código fuente pero sqlplus hace caso omiso del código.
El código es el siguiente:
fillchar(proc_info, sizeof(Tprocessinformation), 0);
fillchar(startinfo, sizeof(Tstartupinfo), 0);
startinfo.cb:=sizeof(Tstartupinfo);
startinfo.dwflags:=STARTF_USESHOWWINDOW;
startinfo.wShowWindow:=SW_hide;
if createprocess(nil,(pchar('sqlplus [usuario_contraseña] @[archivo_de_texto]')), nil,nil, false, CREATE_DEFAULT_ERROR_MODE
+NORMAL_PRIORITY_CLASS, nil,nil,startinfo,proc_info) then begin
WaitForSingleObject(proc_info.hProcess, infinite);
CloseHandle(proc_info.hProcess);
end;
Estoy intentado ejecutar la aplicación Sqlplus.exe de tal forma que no me muestre en pantalla las ventanas de sqlplus o mejor dicho que corra la aplicación en segundo nivel.
Estoy metiendo el siguiente código fuente pero sqlplus hace caso omiso del código.
El código es el siguiente:
fillchar(proc_info, sizeof(Tprocessinformation), 0);
fillchar(startinfo, sizeof(Tstartupinfo), 0);
startinfo.cb:=sizeof(Tstartupinfo);
startinfo.dwflags:=STARTF_USESHOWWINDOW;
startinfo.wShowWindow:=SW_hide;
if createprocess(nil,(pchar('sqlplus [usuario_contraseña] @[archivo_de_texto]')), nil,nil, false, CREATE_DEFAULT_ERROR_MODE
+NORMAL_PRIORITY_CLASS, nil,nil,startinfo,proc_info) then begin
WaitForSingleObject(proc_info.hProcess, infinite);
CloseHandle(proc_info.hProcess);
end;
Valora esta pregunta


0