Lukke andre programmer

Ved at faa en handle (med en handle kan du goere alt med et andet windows program!). Efter du har faaet tillokket dig programmets handle sender du en Message til den om at den skal lukkes!

Her er et eksempel med Notepad!

procedure CloseNotepad;
var
Handle : HWND;
begin
Handle := FindWindow(nil,'Untitled - Notepad');
SendMessage(Handle,WM_Close,0,0);
end;

Laeg maerke til at 'Untitled - Notepad' er teksten paa notepads vindue! Den vil selvfoelgelig andres hvis det er et gemt dukument der aabnet for i notepad! Hvis du kender navnet paa programmets klasse kan du skrive foelgende:

procedure CloseNotepad;
var
Handle : HWND;
begin
Handle := FindWindow('Notepad',nil);
SendMessage(Handle,WM_Close,0,0);
end;

Dette vil dog resultere i at ALLE programmer med klasse navnet 'Notepad' vil blive lukket!

Held og Lykke
Soeren Klit Lambaek