![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
||||
|
||||
|
Nunca lo eh intentado pero para reiniciar explorer podrias matar el proceso y mandarlo abrir.
Ejemplos: Ejecutar aplicacion: ShellExecute(Handle, 'open', PChar('c:\test\app.exe'), nil, nil, SW_SHOW); Matar proceso: Código:
procedure KillProcess(hWindowHandle: HWND);
var
hprocessID: INTEGER;
processHandle: THandle;
DWResult: DWORD;
begin
SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0,
SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
if isWindow(hWindowHandle) then
begin
// PostMessage(hWindowHandle, WM_QUIT, 0, 0);
{ Get the process identifier for the window}
GetWindowThreadProcessID(hWindowHandle, @hprocessID);
if hprocessID <> 0 then
begin
{ Get the process handle }
processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,
False, hprocessID);
if processHandle <> 0 then
begin
{ Terminate the process }
TerminateProcess(processHandle, 0);
CloseHandle(ProcessHandle);
end;
end;
end;
end;
|
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Ayudenme a deshabilitar las opciones de carpeta. | scs | OOP | 3 | 07-01-2009 17:26:52 |
| Api Opciones de Carpeta | MaMu | API de Windows | 4 | 03-04-2008 09:13:46 |
| Aplicar cambios hechos en Opciones de Carpeta | aeff | API de Windows | 3 | 16-10-2007 04:42:46 |
| Modificar opciones impresora desde delphi | walace_soy | Impresión | 0 | 18-09-2007 12:18:17 |
| Cambiar por código la opción "uso compartido de carpetas" en opciones de carpeta | JuanErasmo | API de Windows | 1 | 09-11-2006 15:47:08 |
|