Thema: Delphi Aktualisierung erzwingen

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.149 Beiträge
 
Delphi 12 Athens
 
#6

Re: Aktualisierung erzwingen

  Alt 15. Jan 2009, 14:13
dann bleibt wohl nur dieses
Delphi-Quellcode:
hDrive: THandle;
W: LongWord;

hDrive := CreateFile('\\.\X:', GENERIC_READ or GENERIC_WRITE,
  FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if hDrive <> INVALID_HANDLE_VALUE then begin
  DeviceIoControl(hDrive, FSCTL_DISMOUNT_VOLUME { $00090020 },
    nil, 0, nil, 0, W, nil);
  DeviceIoControl(hDrive, FSCTL_MOUNT_VOLUME,
    nil, 0, nil, 0, W, nil);
  CloseHandle(hDrive);
end;
allerdings hab ich die Definition von FSCTL_MOUNT_VOLUME nicht zur Hand (hier ist kein PSDK installiert und wer weiß, ob's da drinsteht, denn im MSDN wurde garnichts mit FSCTL_MOUNT_VOLUME gefunden)

hier noch 2 Thread, mit selben/ähnlichem Problem ... vielleicht hilft's:
http://groups.google.com/group/micro...11a510107ef5ea
http://www.ureader.com/msg/1473513.aspx


so, ich muß dann aber mal langsam los, hab noch 'nen Termin
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat