Aus dem Grund habe ich mir eine separate
Unit (Windows_Fragment.pas) deklariert, die ich
hinter der Original-Windows-
Unit einbinde. Auf die Weise kann ich auch mein Delphi 5 aktuell halten, ohne in Borlands Units rumfummeln zu müssen.
Zitat von
NicoDE:
Warum hat sich noch keiner über
Delphi-Quellcode:
if(osvi.szCSDVersion[0] = 'C') or
(osvi.szCSDVersion[0] = 'B') then Result := Result + 'OSR2 ';
beschwert?
(der szCSDVersion ist in dem Falle ' A ', ' B ', ... - man achte auf die Leerzeichen
)
Weil vermutlich keiner mehr mit Windows 95 arbeitet? Au weia. Ich sehe gerade, dass es im
PSDK so aussieht:
Code:
if (osvi.dwMajorVersion == 4 && osvi.dwMinorVersion == 0)
{
printf ("Microsoft Windows 95 ");
if ( osvi.szCSDVersion[1] == 'C' || osvi.szCSDVersion[1] == 'B' )
printf("OSR2 " );
}
