Thema: Delphi Programmstart verhindern

Einzelnen Beitrag anzeigen

ccc2

Registriert seit: 30. Mai 2009
16 Beiträge
 
Delphi 3 Professional
 
#17

Re: Programmstart verhindern

  Alt 7. Sep 2009, 15:07
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).
  Mit Zitat antworten Zitat