Da hab ich noch eine Frage / Problemm,
und zwar es geht um die Function
GetTapeParameters
So Sieht die in C aus
Code:
DWORD GetTapeParameters(
HANDLE hDevice,
DWORD dwOperation,
LPDWORD lpdwSize,
LPVOID lpTapeInformation
);
Und so habe ich es umgeschrieben
Delphi-Quellcode:
Var Si : dword;
ew : dword;
ti : GMP;
Begin
...
ew := GetTapeParameters( TapeHandle, GET_TAPE_MEDIA_INFORMATION, Size, @TI );
If TI.WriteProtected Then ShowMessage('WriteProtect');
End;
GMP ist
Delphi-Quellcode:
Type
GMP = Record
Capacity : LongInt;
Remaining : LongInt;
BlockSize : dWORD;
PartitionCount : dWORD;
WriteProtected : Boolean;
End;
Aber irgend wie Functioniert Das Nicht !!!
Auch wenn ich GMP.Capacity Abfrage oder andere parameter bekomme ich nur sch... aber nicht das
was ich haben will.
Wo hab ich misst gebaut ?
gruss
seba