Da ja die Sache mit dem PhysicalDriveName mehr als einmal auftaucht, bietet es sich an,
ein kleine, lokale Funktion zu verwenden:
Delphi-Quellcode:
function GetPhysicalDriveName(aDeviceNumber:integer):string;
begin
result := Format('\\.\PHYSICALDRIVE%d', [aDeviceNumber]);
end;
Als Profis wollen wir doch das
Don't Repeat Yourself - Prinzip beachten.
