Zitat:
Woher soll ich das alles wissen, wenn ich erst in diesem Thema erfahre, dass es noch freie Proceduren gibt Rotating Eyes Ok, ist ein anderes Thema.
Weil das Grundlagen sind!
Wo ist FileStream deklariert?
Gibt es mehrere Variablen dieses Namens?
Delphi-Quellcode:
...
function TForm1.StopRec: TFileStream;
var
Root, CCRDir, ChannelDir, FileName : String;
begin
...
result := FileStream;
end;
procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
if (buffer <> nil) and (len = 0) then
SendMessage(win, WM_INFO_UPDATE, 8, DWORD(PChar(buffer)));
if (FileStream = nil) then
FilrStream := Form1.StopRec;
...
end;
...