hallo luckie,
Zitat:
Also, so lange hie rnicht der komplette Quelltext der Routine gepostet wird ist es nur ein Rumgerate.
Delphi-Quellcode:
function SetServer(szAddr: PChar): integer;
var
hFile : TextFile;
osvi : TOSVERSIONINFO;
buf : Array[0..255] of char;
ofs : TOFSTRUCT;
lpFileSize : DWORD;
line : string;
begin
result := -1;
GetWindowsDirectory(@buf[0], SizeOf(Buf));
ZeroMemory(@osvi, SizeOf(TOSVERSIONINFO));
osvi.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
if GetVersionEx(osvi) then
begin
case osvi.dwPlatformId of
VER_PLATFORM_WIN32_WINDOWS:
begin
// kommt später
end;
VER_PLATFORM_WIN32_NT:
begin
lstrcat(buf, '\System32\drivers\etc\hosts');
AssignFile(hFile, string(buf));
Reset(hFile);
while not EOF(hFile) do
begin
ReadLN(line); // löst den fehler aus
MessageBox(0, PChar(line), 'blubb', 0);
end;
end;
else
Exit;
end;
end;
end;
die funktion ist natürlich noch nicht fertig, macht aber bereits hier fehler....
nur ka wieso, ich entdecke keinen fehler, und wie gesagt beim ausführen kommt "Runtime Error 6 in..."