Moin Wheelie,
Zitat von
Wheelie:
3. ihr sagt mir, was an dieser prozedur falsch ist, dass sie unter win2000/xp nicht funktioniert:
Delphi-Quellcode:
//...
Result := (H >= 65535);
//...
Ändere mal den Typ zu DWORD und die Abfrage auf
Delphi-Quellcode:
Result := (H = INVALID_HANDLE_VALUE);
// oder
Result := (H = DWORD(-1));
Ausserdem musst Du noch GENERIC_READ in GENERIC_WRITE ändern.
Eine laufende Programmdatei kannst Du ja schliesslich auch problemlos kopieren