Zitat:
Jo so gehts auch denke aber für
Nonvcl nicht nötig oder ?
Wieso, das machts doch für das Handling mit PChar's und Strings einfacher.
Man spart sich die Konvertierungs-Arie.
Klar kann man die Windows.pas, Messages.pas einbinden, warum auch nicht.
Die Sysutils würde ich an deiner Stelle drin lassen oder du musst dir eine Eigene basteln
um auf grundliegende Tolls zuzugreifen wie
UpperCase, format, Fileexist, ChangeFileExt etc.
Bei meiner Source vom Fisch ist eine kleine dabei.
Delphi-Quellcode:
function IsWin2kOrUp: Boolean;
var
ovi: TOSVERSIONINFO;
begin
Result := FALSE;
ZeroMemory(@ovi, sizeof(TOSVERSIONINFO));
ovi.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
GetVersionEx(ovi);
if (ovi.dwPlatformId = VER_PLATFORM_WIN32_NT) and (ovi.dwMajorVersion >= 5)
then result := TRUE;
end;
Sowas ?
