Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   can someone describe me waht that means ? (https://www.delphipraxis.net/26518-can-someone-describe-me-waht-means.html)

MathiasSimmack 24. Jul 2004 17:40

Re: can someone describe me waht that means ?
 
Zitat:

Zitat von Hansa
Because of that, I think you are "on the Holzweg" :mrgreen:

You cannot translate it, can you? ;) What's the right metaphor?

phlux 24. Jul 2004 17:51

Re: can someone describe me waht that means ?
 
to bark up the wrong tree :mrgreen:

Hansa 24. Jul 2004 17:53

Re: can someone describe me waht that means ?
 
natürlich kann ich das übersetzen : Wood-Way, or better Wood-Path. But an english speaking human beeing can't understand this english/german sentence. It is too difficult :cyclops: , because it's from me (in this context). Also I can't tell You, who has invented this saying. 8)

I think its about 1000 years old, e.g. older than Mathias Simmack.

cdkiller 24. Jul 2004 18:10

Re: can someone describe me waht that means ?
 
okay can we come back to the topic ?

scp 24. Jul 2004 18:15

Re: can someone describe me waht that means ?
 
I look in "Who wants to be a millionaire" and here is the result
00029250h: 42 6F 47 5F 20 2A 39 30 2E 30 26 21 21 20 20 59 ; BoG_ *90.0&!! Y
00029260h: 79 3E 00 00 01 00 00 00 32 00 00 00 14 00 00 00 ; y>......2.......
00029270h: 01 00 00 0032 00 00 0014 00 00 00 00 00 00 00 ; ....2...........

This means its version 1.50.020, each number is a DWORD value.
The version number is stored 32 Bytes below BoG.

cdkiller 24. Jul 2004 19:04

Re: can someone describe me waht that means ?
 
i can't follow you ???

can write a function that do this ? then i would understand it better.

scp 24. Jul 2004 19:24

Re: can someone describe me waht that means ?
 
Something like this:
Delphi-Quellcode:
type
  TSafeDiscVer = packed record
    Major : DWORD;
    Minor : DWORD;
    Build : DWORD;
  end;
var
  ASafeDiscVer : TSafeDiscVer;
  fs : TFileStream;
  ThePos : integer;
begin
  ThePos := FindInFile('D:\game.exe', 'BoG_', true);
  //...
  fs.Seek(ThePos + 32, soFromBeginning);
  fs.ReadBuffer(ASafeDiscVer, SizeOf(TSafeDiscVer));
  Edit1.Text := 'SafeDisc Version '
              + IntToStr(ASafeDiscVer.Major) + '.'
              + IntToStr(ASafeDiscVer.Minor) + '.'
              + IntToStr(ASafeDiscVer.Build);

cdkiller 24. Jul 2004 19:56

Re: can someone describe me waht that means ?
 
wow. thanks.

i see it is not so hard.

but the important think is, that i have understand it.

thanks.


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:19 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz