Zitat von
turboPASCAL:
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 ?
Jo hab mir da auch was gebastelt
Denke man sollte schon
nonvcl bleiben ansonstem kann ich direkt ne Form addieren
JO sowas werd es mal testen.
gruss Emil