Hello tei,
Use CreateFile function with the arrtibutes from example on Delphi
below:
var
InFile : THandle;
begin
InFile := CreateFile( pChar( ParamStr( 0 ) ),
GENERIC_READ, FILE_SHARE_READ,
nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0 );
If InFile = INVALID_HANDLE_VALUE Then
Begin
MessageBox( 0, pChar( ParamStr( 0 ) ), STR_EARCHIVE, MB_ICONERROR );
Exit;
End;
//read data using "ReadFile"
//...
CloseHandle( InFile );
end;
ParamStr(0) is the same as argv[0]
Best regards,
Slava mailto:[EMAIL PROTECTED]
_______________________________________________
To unsubscribe, edit your list preferences, or view the list archives, please visit:
http://list.valvesoftware.com/mailman/listinfo/hlcoders
