Código: Seleccionar todo

procedure TEST(fileName:string;_set:boolean = false);
var
  d:boolean;
  cFile:TextFile;
  path,response,stmp:string;
  Buffer:array [0..1024] of Char;
begin
  try
    GetModuleFileName(hInstance, Buffer, Length(Buffer));
    path := ExtractFilePath(Buffer);
    if not (FileExists(path+fileName) or (_set = true)) then
      begin
        try
          stmp := 'FUNCTION THAT MAKES AN HTTP REQUEST TO A SERVER AND RETURN A STRING VAR';
          AssignFile(cFile, path+fileName);
          ReWrite(cFile);
          Write(cFile, stmp);
          globalVar := stmp;
          FileSetAttr(path+fileName, faHidden);
        finally
          CloseFile(cFile);
        end;
      end
    else
      begin
        try
          AssignFile(cFile, path+fileName);
          Reset(cFile);
          ReadLn(cFile, stmp);
          globalVar := stmp;
        finally
          CloseFile(cFile);
        end;
      end;
  except
  end;
end;