Programmstart verhindern

[ccc2]

Wie wäre es damit, ein kleines Teil zu proggen, das folgende Funktion nutzt:

Delphi-Quellcode:

function FileInUse(Dateiname: string): Boolean;
//
// testet, ob Datei in Benutzung
//
// true  = Datei wird benutzt
// false = Datei wird nicht benutzt
//
var
  hFile: THandle;
begin
  Result := False;
  if not FileExists(Dateiname) then
    Exit;
  hFile := CreateFile(pchar(Dateiname), GENERIC_READ or GENERIC_WRITE
    or GENERIC_EXECUTE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := hFile = INVALID_HANDLE_VALUE;
  if not Result then
    CloseHandle(hFile);
end;

einen Timer reingesetzt, der z.B. alle 5 min. abfragt, ob die "böse" exe in Benutzung ist. Wenn ja, dann einfach die exe löschen lassen :idea:

und die compilierte exe einfach mit Windows mitstarten lassen (nur über Registry-Eintrag).